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PREFACE 


MANUAL OBJECTIVES 

This manual contains detailed information about the FORTRAN-77 Object 
Time System (OTS) not contained in the PDP-11 FORTRAN-77 User 1 s Guide . 
The information is not needed for typical use of FORTRAN-77; however, 
many users need to know more about the OTS for specialized 
applications. This manual is especially helpful to programmers 
interfacing MACRO-11 and FORTRAN routines to the OTS. 


INTENDED AUDIENCE 

This manual assumes that the readers know MACRO and FORTRAN and are 
familiar with the information in the PDP-11 FORTRAN-77 User's Guide , 
their operating system's executive reference manual and I/O operations 
reference manual, and the RMS—11 MACRO—11 Reference Manual . 

Internal OTS interfaces are not guaranteed to remain constant across 
releases of FORTRAN-77. Calling the OTS the same way as the compiled 
code is called and using the OTS named offsets ensure as much 
release-to-release compatibility as possible. 


STRUCTURE OF THIS DOCUMENT 

This manual contains 11 chapters and four appendixes. 

• Chapter 1, "Object Time System Overview," provides a 
conceptual view of the structure of the OTS. 

• Chapter 2, "Conventions and Standards," describes the calling 
sequences and naming conventions used by FORTRAN—77. 

• Chapter 3, "Assembly Language Interfaces to the OTS," 
describes how to write MACRO-11 programs that interface with 
the OTS. 

• Chapter 4, "Data Structures and Storage," describes the OTS 
work area and logical unit control table. 

• Chapter 5, "Overview of FORTRAN Input/Output," provides a 
conceptual view of OTS I/O processing and describes the I/O 
modules that are accessed by both the FCS—11 and RMS—11 file 
management systems. 

• Chapter 6, "FCS-11 I/O Support," describes the FCS-11 file 
management system operations that are used to implement 
FORTRAN-77 I/O operations. 
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• Chapter 7, "RMS-11 I/O Support," describes the RMS-11 file 
management system operations that are used to implement 
FORTRAN-77 I/O operations. 

• Chapter 8, "Format Processing and Format Conversions," 

describes the internal form of format specifications, the 
format processing algorithm, and the format conversion 

routines. 

• Chapter 9, "Error Processing and Execution Control," discusses 
execution control processing, the detection and processing of 
run-time errors, and the generation of error messages. 

• Chapter 10, "Other Compiled-Code Support Routines," describes 
routines that support various arithmetic and housekeeping 
operations required by the compiled code. 

• Chapter 11, "OTS System Generation and Tailoring," describes 
the OTS installation options. 

• Appendix A, "FORTRAN Impure Area Definitions," shows the 
layout of the OTS work area described in Chapter 4. 

• Appendix B, "FORTRAN Logical Unit Control Block Definitions," 
describes the data structures used in OTS I/O processing. 

• Appendix C, "OTS Size Summary," provides the approximate sizes 
of all the OTS modules. 

• Appendix D, "Program Section Descriptions," describes the 
program sections (PSECTs) used by the OTS. 


ASSOCIATED DOCUMENTS 

The following documents provide related information: 

• PDP-11 FORTRAN-77 User 1 s Guide 

• PDP-11 FORTRAN—77 Language Reference Manual 

• RMS-11 User 1 s Guide 

• RMS-11 MACRO-11 Reference Manual 

• IAS/RSX-11 I/O Operations Reference Manual 

CONVENTIONS USED IN THIS DOCUMENT 

The manual follows these conventions: 

• Unless otherwise noted, numeric values are represented in 
decimal notation. Values in MACRO-11 examples are in octal 
notation. 

• Unless otherwise specified, all commands end with a carriage 
return. 

• The name FORTRAN-77 in the manual refers to PDP-11 FORTRAN-77, 
unless otherwise specified. 
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CHAPTER 1 


OBJECT TIME SYSTEM OVERVIEW 


The FORTRAN-77 Object Time System (OTS) consists of assembly language 
modules that complement the user's compiled code. Most OTS routines 
are common to the RSX-11M/M-PLUS and RSTS/E operating systems, and the 
FCS-11 and RMS-11 file management systems. However, certain routines 
are supported only by a specific operating system or file management 
system. The FORTRAN-77 distribution kit allows you to configure 
systems individually for each file management or operating system. 

The OTS has five main parts: 


1 . 

2 . 

3. 

4. 

5. 

The rest 


Tables, buffers, and impure storage that the 
need 

I/O processing routines 

Task control and error-processing routines 
Mathematical functions and system subroutines 
Other compiled-code support routines 
of this chapter introduces each of these parts. 


OTS 


routines 


1.1 TABLES, BUFFERS, AND IMPURE STORAGE 

The OTS uses data areas that include read-only constants, logical unit 
control tables, various buffers, and the impure storage area. Chapter 
4 describes these data areas. 


1.2 I/O PROCESSING ROUTINES 

The I/O processing routines are a collection of small modules. Only 
those modules required by a given FORTRAN source program need to be 
linked into the user's task. 

Chapter 5 describes the I/O system design and the I/O routines common 
to the FCS-11 and RMS-11 file management systems. Chapter 6 discusses 
FCS-ll-specific routines; Chapter 7 discusses RMS-ll-specific 
routines, and Chapter 8 contains information on format processing 
routines. 
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1.3 TASK CONTROL AND ERROR PROCESSING ROUTINES 

For every FORTRAN main program, the compiler inserts a call to OTS 
initialization. You can control program termination by using the 
USEREX subroutine to set up a procedure that is called when a proqram 
terminates. 

When the OTS detects an error, it executes a TRAP instruction with the 
error number in the low byte of the instruction. A service routine 
within the error—processing modules handles floating-point processor 
asynchronous traps. 

There are two methods of error recovery: an 1 ERR=' transfer within an 
I/O statement, or a return to the error site for appropriate action. 
A byte in the OTS impure storage determines which action to take. 
Each defined error number corresponds to an error control byte that 
you can access using the FORTRAN-callable subroutines ERRSET, ERRTST, 
and ERRSNS. 

For more information on these subroutines, see Chapter 9. 


1.4 MATHEMATICAL FUNCTIONS AND SYSTEM SUBROUTINES 

The FORTRAN—77 User 1 s Guide describes how to use special names to call 
mathematical routines from compiled code. These routines are commonly 
known as processor-defined functions. Appendix B of the User's Guide 
describes the algorithms for these mathematical library routines. 

Appendix D of the User's Guide describes the system subroutines. 


1.5 COMPILED-CODE SUPPORT ROUTINES 

These routines complement the compiled code by performing operations 
too complicated or cumbersome to perform with in-line code, such as 
array subscript checking, exponentiation, character assignment and 
comparison operations, and complex arithmetic. 

For more information on these routines, see Chapter 10. 
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CHAPTER 2 


CONVENTIONS AND STANDARDS 


FORTRAN-77 has specific procedural and naming conventions. The 
following sections describe those conventions. 


2.1 REGISTERS 

The eight [processor general registers] are referenced as follows: 

• RO - R5 = Registers 0-5 

• SP = Register 6 

• pc = Register 7 

The six floating-point processor accumulators are referenced as F0-F5. 

2.2 CALLING SEQUENCES 

FORTRAN-77 compiled code uses the following four calling sequence 

conventions to call components of the OTS: 

1. R5 Calls — for all system subroutines, most 

processor—defined functions, and all user—routine calls 

2. PC Calls — for I/O operations, system-dependent routines, 
and character assignment and comparison operations 

3. R4 Calls — for out-of-line, stack-oriented arithmetic 
routines and certain compiled-code support routines 

4. F0 Calls — for faster calls to certain processor-defined 
functions 

The sections that follow describe these calls. 


2.2.1 R5 Calls 

This calling sequence convention is the standard for PDP-11 
FORTRAN-77. 
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Its basic form is: 


;IN INSTRUCTION-SPACE 

MOV #LIST,R5 ;Address of argument list to 
/register 5 

JSR PC, SUB /Call subroutine 


/IN DATA-SPACE 


LIST: 


BYTE N, 0 
WORD ADR1 


WORD ADRN 


/Number of arguments 
/First argument address 


/N'th argument address 


The argument list must reside in data-space and, except for label type 
arguments, addresses in the list must also refer to data-space. 

User programs should not reference the byte at address LIST+1. It is 
reserved for future use by DIGITAL software/ thus, references to it 
could cause unpredictable results. 


Control returns to the calling program by restoring (if necessary) the 
stack pointer (SP) to its value on entry and executing an RTS PC 
instruction. 


Function subprograms return a single result in the processor general 
registers. The type of variable returned by the function determines 
which registers receive the result. The variable types and their 
associated register assignments are shown in Table 2-1. 


Table 2-1: Register Assignments for Subprogram Results (R5 Calls) 


If the 

Result Type Is: 



The Result Is in: 

INTEGER*2 




L0GICAL*1 

RO 



L0GICAL*2 




INTEGERM 

RO 


Low-order result 

L0GICAL*4 

R1 

— 

High-order result 

REAL 

RO 

— 

High-order result 


R1 

— 

Low-order result 

DOUBLE 

RO 

—— 

Highest-order result 

PRECISION 

R1 




R2 




R3 

—— 

Lowest-order result 

COMPLEX 

RO 


High-order real result 


R1 

— 

Low-order real result 


R2 

— 

High-order imaginary 




result 


R3 

— 

Low-order imaginary result 


2-2 











CONVENTIONS AND STANDARDS 


Calling programs use RO through R5 to save values needed after a 
return from a subprogram. The argument list pointer value in register 
R5 may not be valid after return. Calling programs must save and 
restore the floating-point registers they use, and they cannot assume 
that the called routines will restore the floating-point status bits 
I/L (integer/long integer) or F/D (floating/double precision). 

An address of -1 (177777 octal) represents a null argument in an 
argument list. It is used to ensure that using null arguments in 
subprograms that cannot handle them will result in an error when the 
routine is called. The errors most likely to occur are illegal memory 
references and word references to odd byte addresses. 

For more information about this calling sequence convention, see the 
PDP-11 FORTRAN-77 User's Guide. 


2.2.2 PC Calls 

PC calls are made with a JSR PC,xxx instruction. They pass all 

arguments on the stack and return with the arguments deleted from the 

stack. There are no changes to registers R0-R5, F0-F5, or the FPP 

status register. 

PC calls are used for the following operations: 

• All I/O statements except OPEN and CLOSE 

• STOP, PAUSE, computed GO TO, and assigned GO TO statements 

• Character out-of-line support routines for assignment and 

comparison 

• Array subscript checking, if enabled 
Example: 

The FORTRAN statement 
REWIND 3 

is compiled into the code 

MOV #3,— (SP) ;Unit number 
JSR PC, REWI$ ;REWIND processor 


2.2.3 R4 Calls 

This convention is used for out-of-line, stack-oriented arithmetic 
routines and other compiled-code support. These routines receive 
argument values on the stack, or a pointer to an argument value as an 
in-line argument immediately following the call. They delete the 
stack arguments and return a value on the stack. This type of routine 
is called by a JSR R4,xxx instruction. R4 calls modify the FPP status 
register and registers F0-F5 and R0-R4, but preserve R5. Chapter 10 
describes the modules that use this convention. 
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Example: 

The FORTRAN statement 
X=A**I 


is compiled into the code 


MOV A+2,-(SP) 
MOV A,—(SP) 

JSR R4, PWRIC$ 
.WORD I 
MOV (SP)+,X 
MOV (SP)+,X+2 


;Push A 

/Compute A**I 
/Address of I 
/Store at X 


2.2.4 FO Calls 


Commonly used processor-defined functions use this convention. it 
sets the FPP F/D status bit to the type of argument and loads the 
argument into FO. A JSR PC,xxx instruction calls this routine. it 
returns a result in FO and preserves the FPP F/D status bit, but does 
not preserve registers R0-R5, F1-F5, and the FPP i/L status bit. The 
functions that use FO calls are named $$xxxx, as shown in Table 2-2. 


Table 2-2: Processor-Defined Functions 


Name 

Function 


$$S IN 
$ $DSIN 

Real sine 
Double-precision 

sine 


$$SQRT 
$ $DSQR 

Real square root 
Double-precision 

square root 


$$ATAN 

$$DATN 

Real arctangent 
Double-precision 

arctangent 


$$COS 
$ $DCOS 

Real cosine 
Double-precision 

cosine 


$$ALOG 

$$DLOG 

Real logarithm (base e) 
Double-precision logarithm (base 

e) 

$$ALG1 
$ $DLG1 

Real logarithm (base 10) 
Double-precision logarithm (base 

10) 

$$EXP 

$$DEXP 

Real exponential 
Double-precision 

(base e) 

exponential (base e) 

$$TAN 
$ $DTAN 

Real tangent 
Double-precision 

tangent 
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Example: 

The FORTRAN statement 
Y = SIN(X) 

is compiled into the code 

SETF ;set FPP mode 

LDF X, FO 
JSR PC,$$SIN 
STF FO,Y 


2.2.5 Special Call Conventions 

The following are exceptions to the four general calling conventions: 

• OPEN (OPENS) and CLOSE (CLOS$) statements use the R5 

convention with a special argument list encoding. 

• Run-time format compilation (FMTCV$) uses a PC call but 
returns a stack result for use in a subsequent I/O 
initialization call. 


• Adjustable array initialization calls (MAK1$, MAK2$, MAKN$, 
and MAKV$) use a PC call but preserve only R5. 

• Traceback name initialization (@$NAM$) uses a co-routine call. 


• 

Virtual array processing ($VRTxy) 
preserves all registers except RO. 

uses a PC call 

that 

• 

Task initialization ($OTI) uses 
preserve the registers. 

a 

PC call that 

does 

not 

• 

The intrinsic function INDEX uses 
addresses in the list point 
descriptors of the argument. 

the 

to 

R5 convention, 
2-word (length 

but the 
, address) 

See the 
details 

corresponding module descriptions 
on these special variants. 

in 

other chapters 

for 

more 


2.3 LABELING CONVENTIONS 

The labels of OTS routines begin with a $ and are followed by the name 
or a contraction of the name. All external entry point names contain 
a $ as either the first or last character. 


2.4 CONTEXT SAVE AND RESTORE 

The calling sequence determines the OTS register context conventions. 
See Section 2.2. 

Internal OTS calls use various conventions. In general, the calling 
routine saves those registers it requires. Registers not mentioned in 
the OTS routine descriptons are saved. 
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CHAPTER 3 

ASSEMBLY LANGUAGE INTERFACES TO THE OTS 


Chapter 2 describes how the compiled code that is output from your 
FORTRAN-77 source program compilation interfaces with the OTS. You 
also can write MACRO-11 programs that interface with the OTS. This 
chapter summarizes how you can set up that interface. 




3.1 WRITING A FORTRAN MAIN PROGRAM IN ASSEMBLY LANGUAGE 

The following MACRO-11 code represents a hypothetical FORTRAN main 
program: 


START:: 

JSR PC, OTI$ 


Initialize the OTS and file management 
system 


MOV #~R<IN.>,-(SP) 
MOV #~R<.MA>, R4 
JSR R4, @$NAM$ 


; Last 3 letters of name in RADIX-50 
; First 3 letters of name in RADIX-50 
; Initialize traceback chain if desired 


JSR PC, EXIT$ 

.GLOBL $OTSVA 
.GLOBL RCI$ 
.GLOBL LCI$ 
.GLOBL ICI$ 
.GLOBL ORGSQ$ 
.GLOBL ORGRL$ 
.GLOBL ORGIX$ 
.END START 


Close files and exit 
Link in the impure area 
Floating point format conversions 
Logical format conversions 
Integer format conversions 
RMS-11 sequential impure 
RMS-11 relative impure 
RMS-11 indexed impure 


Notes: 

1. The call to OTI$ initializes the FPP (SFPA$S), the SST vector 
(SVTK$S), and FCS-11 (FINIT$) or RMS-11 ($INITIF). 

2. The reference to $OTSVA loads the FORTRAN impure storage 
area. 
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3. The references to the FORMAT conversion routines are needed 
only if the desired conversion routine is required. (Note 
that a FORTRAN subprogram that contains a FORMAT statement 
contains the required FORMAT conversion references.) 


4. The RMS-11 impure storage references are needed only if 
RMS-11 is the file system your program needs to process a 
particular file organization. 


3.2 LINKAGE TO THE FORTRAN IMPURE STORAGE AREA 

The FORTRAN impure storage area defines a global symbol $OTSVA, which 
is referenced by the compiled code in FORTRAN main programs. Note 
that subprograms do not reference this symbol. When the Task Builder 
processes a reference to $OTSVA, it loads the FORTRAN impure area and 
defines global symbol $OTSV in the task that contains the address of 
the symbol $OTSVA. All FORTRAN OTS routines obtain the address of the 
impure area by referencing the location $OTSV (see the discussion of 
the $AOTS macro in Chapter 11). 
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CHAPTER 4 


DATA STRUCTURES AND STORAGE 


The OTS maintains two major areas of impure storage: the work area 
and the logical unit control table. This chapter describes those two 
areas. 


4.1 WORK AREA STORAGE DESCRIPTION 

The work area contains task—specific data, such as address pointers, 
and information about the currently active operation, such as a direct 
access record number. 

For example, the work area contains: 

• Named offsets — The named offsets make up the first 120 words 
of the work area and have names of the form W.xxxx or xxxxxx. 
There are both word and byte offsets, and some of the offsets 
have an associated global symbol name. 

• QIO directive parameter block — The 12-word QIO directive 
parameter block (DPB) uses event flag 30 to send error 
messages to terminals. On RSX—11M/M—PLUS and RSTS/E systems, 
the DPB is used for all message output. The offset W.QIO 
points to the DPB. 

• Error message text buffer —— The buffer for the error text 
message line is 70 bytes in RSX-11M/M-PLUS and RSTS/E. The 
offsets W.ERLN (start address) and W.ERLE (end address+1) 
point to the buffer. 

• Error control table —— The error control table is 128 bytes, 
with one byte for each error. The error control table is an 
impure data area that the error-handling routines use and 
manipulate. The task initialization routine OTI$ copies a 
prototype version of the table into this area. The offset 
W.ERTB points to this table. 

• Synchronous System Trap vector table — The Synchronous System 
Trap (SST) vector address table ($SST) contains an entry for 
each defined SST. The offset W.SST points to this table. 

• Window block — An 8-word address mapping window block is used 
by the virtual array processing routines. The virtual array 
initialization routine $VINIT initializes this window block. 
The offset W.WDB points to this window block. 
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In this section, the named offsets are organized into functional 
groups and described in Tables 4—1 through 4—8. The functional groups 
and their corresponding tables are as follows: 

Task control — Table 4-1 

I/O control — Table 4-2 

Format control — Table 4-3 

Run-time format control — Table 4-4 

Error control — Table 4-5 

Error message and 

traceback control — Table 4-6 

Virtual array control — Table 4-7 


Trap 

routines — Table 4-8 

Table 4-1s Task Control Information 

Global 

Symbol 

Description Global Name Default 

EXADDR 

Address of USEREX routine or 0 

W.ACPT 

Logical unit number for ACCEPT $ACCPT 5 

statements 

W.BEND 

High address+1 of the user 
record buffer 

W.BFAD 

Start address of the user record 
buffer 

W.BLEN 

Length of the user record 133 

buffer; computed at task 
initialization time and equal 
to W.BEND - W.BFAD 

W. DEV 

Start address of the logical unit 
control table 

W.DEVL 

For FCS-11, the high address+1 
of the logical unit control 
table; for RMS-11, the address 
of the free storage 

W.END 

Last word of named offsets 

W.EXST 

Exit with status value 


(continued on next page) 
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Table 4-1 (Cont.): Task Control Information 


Global 

Symbol 

Description 

Global Name 

Default 

W.EXTK 

Size (in 64-byte units) of 
the task increment value for 
use in the EXTK$ directive 

$EXTKL 

16 

W.FNML 

Maximum length of file name 
strings nonblank characters 

$MXFNL 

80 

W.FPPF 

FP-ll flag byte; 0 if FP-11 
present, 1 if not 



W.LIMT 

Address of a .LIMIT directive 
block 



W.LNMP 

Number of valid negative unit 
numbers 


4 

W.LUNS 

Number of valid logical units 

.NLUNS 


W.MO 

Logical unit number for error 
messages 

.MOLUN 


W.PRNT 

Logical unit number for PRINT 
statement 

$PRINT 

6 

W.READ 

Logical unit number for READ 
statement 

$READ 

1 

W.SKLM 

Task's current stack overflow 



W.SST 

Limit address of the SST 
table 



W.TKLM 

Task current maximum virtual 
address 



W.TSKP 

Address of the special PSECT, 

$$TSKP , containing task 
parameters 



W.TYPE 

Logical unit number for TYPE 
statement 

$TYPE 

5 

W.LUNO 

System logical unit number for 
FORTRAN logical unit 0 

$LUN0 

0 


o 


4-3 









DATA STRUCTURES AND STORAGE 



Table 4-2: I/O Control Information 

Global 

Symbol 

Description 

BLBUF 

Address of next data byte in current I/O 
record 

COUNT 

Length of array in an I/O list 

DENCWD 

Maximum number of I/O records or 0 if no limit 

ENDEX 

Address of END= statement or 0 

EOLBUF 

End address+1 of current I/O record 

ERREX 

Address of ERR= statement or 0 

FILPTR 

Address of active I/O control block or 0 

FMTCLN 

Value of SP on entry to I/O processing 

ITEMSZ 

Size in bytes of current I/O list element 

LNBUF 

Start address of current I/O record 

RACNT 

Number of data bytes remaining in current I/O 
record 

RECIO 

Address of record-processing I/O routine (GET 
or PUT) 

UNCNT 

Number of data bytes remaining in record 
segment 

UNFLGS 

Segmented record control word 

VARAD 

Address of current I/O list element or 0 

W.EXJ 

Co-routine address of current I/O element 
processing routine 

W.FDB1 

Pseudo I/O control block for ENCODE/DECODE and 
internal files (word 1) 

W.FDB2 

Pseudo I/O control block for ENCODE/DECODE and 
internal files (word 2) 

W.FPST 

FP-11 status register at I/O entry 

W.KDSC 

Character key descriptor address 

W.KDTP 

Key data type byte 

W.KMAT 

Key match criterion byte 

W.KNUM 

Integer key value (2 words) 

W.KREF 

Key-of-reference value 

W.OPFL 

Count of errors during OPEN or CLOSE statement 
processing 


(continued on next page) 


4-4 







DATA STRUCTURES AND STORAGE 



Table 4-2 (Cont.): I/O Control Information 

Global 

Symbol 

Description 

W.RECH 

High-order direct access record number 

W.RECL 

Low-order direct access record number 

W.UOPN 

USEROPEN procedure address or 0 

W.VTYP 

Data type code of current I/O list element 

Table 4-3: Format Control Information 

Global 

Symbol 

Description 

D 

Decimal fraction width of current format item 

DOLFLG 

Dollar sign format flag for the current I/O 
record 

FMTAD 

Address of current format byte 

FMTLP 

Infinite format loop flag 

FMTRET 

Address in format for format reversion 

FSTK 

Base of 16-word stack for format parenthesis 
nesting 

FSTKP 

Address in FSTK of current nesting level 

LENGTH 

Field width of current format item 

PSCALE 

P format value 

REPCNT 

Repeat count of current format item 

TSPECP 

Highest address used in current I/O record 

TYPE 

Current format code 

W.CPXF 

Complex data item flag: l=real part; 0=not 

complex; -l=imaginary part 

W.DFLT 

Current default format code or 0 

W.ELEM 

Flag indicating data element has been 

processed 

W.LICB 

Base address of current list-directed data 
value control block in previous versions of 

PDP-11 FORTRAN IV-PLUS 

W.LICP 

Address in list-directed data value control block of 
current data value in previous versions of PDP-11 
FORTRAN IV-PLUS 


(continued on next page) 
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Table 4-3 (Cont.): Format Control Information 

Global 

Symbol 

Description 

W•NULL 

Flag indicating a slash separator character 
was seen during list-directed input processing 

W.PLIC 

Address in list-directed data value control 
block of current data value 

W.PNTY 

Variable format expression flag byte 

W.R5 

Saved R5 value for variable format expressions 

W.SPBN 

The SP/SS, BN/BZ, and T format flags 


Table 4-4: Run-Time Format Control Information 


Global 

Symbol 

Description 

NOARG 

Number of arguments required by current format 
code 

NUMFLG 

Current numeric value 

PARLVL 

Current[parenthesis] level 

W.OBFH 

End address +1 of run-time format buffer 

W.OBFL 

Start address of run-time format buffer 

Table 4-5: Error Control Information 

Global 

Symbol 

Description 

W.ECNT 

Task error limit count, global name: $ERCNT 

W.ERNM 

Last error number or 0 

W.ERTB 

Start address of error control table 

W.ERUN 

Logical unit number of last I/O error or 0 

W.FERR 

Primary I/O error code of last I/O error or 0 

W.FER1 

Secondary I/O error code of last I/O error or 

0 

W.IOEF 

Special I/O error processing flag 

W.PC 

PC value of SST and FP-11 errors 

W.QIO 

Address of error message QIO DPB 


4-6 











DATA STRUCTURES AND STORAGE 



Table 4-6: Error Message and Traceback 

Control Information 

Global 

Symbol 

Description 

W.ERLE 

End address+1 of error message text buffer 

W.ERLN 

Start address of error message text buffer 

W.M0A1 

MO first text segment address 

W.M0A2 

MO second text segment address 

W.MOPR 

Address of MO parameter list 

W.MOTC 

MO traceback count 

W.MOTR 

MO traceback list head 

W.MOTY 

Error message type byte: 0=MO, 1=QI0 

W.MOT2 

MO traceback current statement number 

W.M0V1 

MO first text segment length 

W.MOV2 

MO second text segment length 

W.NAMC 

Traceback chain list head, global name: $NAMC 

W.QIO 

Address of error message QIO DPB 

W.SEQC 

Traceback current statement number, global 
name: $SEQC 

W.TKNP 

Address of task name in error message text 
buffer 

Table 4-7: Virtual Array Control Information 

Global 

Symbol 

Description 

W.WDB 

Address of window block for mapping 

W.WNHI 

Current high-window address+1 

W.WNLO 

Current low-window address 
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Table 4-8: Trap Routine information 


Global 

Symbol 

Routine Whose 
Address Contained 

W.ERXT 

$ERXIT 

W.ERLG 

$ERRLG 

W. FIN 

$EXIT 

W.FPER 

$FPERR 

W.NAM 

NAM$ 

W.IOXT 

$IOEXIT 

W.RLME 

RLMEM$ 

W.RQME 

RQMEM$ 

W.GSA 

RMSQL$ 


4.2 LOGICAL UNIT CONTROL TABLE 

The logical unit control table contains a block of storage for each 
logical unit allocated to the FORTRAN OTS. Each block contains all 
the information that the OTS requires to perform I/O to the associated 
unit. 

All FORTRAN I/O is performed on logical units. Each logical unit has 
a control block (LUB) • The allocation and manipulation of the control 
blocks depends on the file system in uses FCS-11 or RMS-11. 

The sections that follow describe the LUB symbolic names and their 
use. Appendix B contains the offset values for each symbolic name. 


4.2.1 Common LUB Definitions 


The first two words of each control block are status words (D.STAT and 
D.STA2). Certain bits in those status words are defined the same way 
in both the FCS-11 and RMS-11 file systems in order to support common 
I/O processing as much as possible. 


The following bits in D.STAT are defined the same way in both file 
systems: 


DV.FAK 

DV.FMP 

DV.FRE 

DV.OPN 

DV.RW 

DV.UFP 


partial control block for ENCODE/DECODE and internal 
file usage 

formatted logical unit 

free format disallowed ("short field termination") 
open logical unit 

current operation type: 0= READ, 1= WRITE 
unformatted logical unit 
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The following bit definition in D.STA2 is common to both file systems: 
DV.BN — BLANK = 'NULL' specified 


4.2.2 LUB Definitions for FCS-11 Support 


Each logical unit has a LUB in the $$DEVT program section (PSECT). 
There is one LUB allocated for each unit declared in the task builder 
UNITS= statement (if the UNITS= parameter is not specified, the 
default value is six logical units). Each LUB is a fixed-length block 
consisting of an FCS-11 File Descriptor Block (FDB) and a 6-word 
header for FORTRAN usage. At task initialization time, each LUB is 
set to 0. A close operation also sets each LUB to 0. 


Offsets of the form D.xxxx describe the FORTRAN header portion of the 
LUB, as follows: 

D.STAT — status word 1 (see below) 

D.STA2 — status word 2 (see below) 

D.RCNM — direct access record limit (low order) 

D.RCN2 — direct access record limit (high order) 

D.RCCT — record count for BACKSPACE (low order) 

D.RCC2 — record count for BACKSPACE (high order) 

D.AVAD — address of associated variable address or 0 


D.RSIZ — maximum record length 
D.FDB — start of FCS-11 FDB 


Several of the words have different uses depending upon the kind of 
I/O operation. 

The FORTRAN header portion of the LUB contains two status words. The 


bits in these status words have symbolic names of the form DV.xxx. 


These bits are defined 

as follows: 

Status Bits 

for Word 1 

(D.STAT) 

Symbol 

Value 

Description 

DV.FAK 

20 

Partial LUB for ENCODE/DECODE and internal 
files 

DV.FNB 

4 

File Name Block initialized 

DV.DFD 

10 

Direct access unit 

DV.FACC 

40 

File attributes byte of FDB (F.FACC) defined 

DV.OPN 

200 

Unit open 

DV.FMP 

2000 

Formatted unit 

DV.UFP 

4000 

Unformatted unit 

DV.ASGN 

10000 

File name defined 
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Status Bits 

for Word 

1 (D.STAT) 

Symbol 

Value 

Description 

DV.CLO 

20000 

Close in progress 

DV.FRE 

40000 

Free format prohibited (short field 



termination) 

DV. RW 

100000 

Input or output operation (0 = read, 1 = write) 

DV.FIX 

2 

Fixed-length records 

DV.VAR 

400 

Variable-length records 

DV.SEG 

1000 

Segmented records 

Status Bits 

for Word 

2 (D.STA2) 

Symbol 

Value 

Description 

DV.AI4 

2 

Associated variable is INTEGER*4 data type 

DV.CC 

10 

Explicit carriage control specified 

DV.SPL 

20 

DISP = 'PRINT' specified 

DV.DEL 

40 

DISP = 'DELETE' specified 

DV.SAV 

40000 

DISP = 'SAVE' specified 

DV.RDO 

400 

READONLY specified 

DV.UNK 

1000 

TYPE = 'UNKNOWN' specified 

DV.OLD 

2000 

TYPE = 'OLD' specified 

DV.NEW 

4000 

TYPE = 'NEW' specified 

DV.SCR 

10000 

TYPE = 'SCRATCH' specified 

DV.APD 

20000 

ACCESS = 'APPEND' specified 

DV.RSZ 

4 

Explicit RECORDSIZE specified 

DV. BN 

100000 

BLANK = 'NULL' specified 


4.2.3 LUB Definitions for RMS-11 Support 

Each open logical unit that uses RMS—11 has a LUB, which comes from 
the storage pool. There is a 1—word pointer, or 0, to the LUB, 
allocated in the $$DEVT PSECT. A LUB contains the following 
information: 

• An RMS-11 Record Access Block (RAB) 

• FORTRAN control information 

• Storage for the file specification string for use during error 
reporting 
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Allocation of the LUB occurs at the first reference to the logical 
unit. Deallocation occurs at the close of the unit. 

RMS-11 also requires additional control blocks: the File Access Block 
(FAB), Extended Attributes Block (XAB), and the Name Block. The OTS 
allocates these as required. 

Offsets of the form D.xxxx describe the FORTRAN header portion of the 
LUB, as follows: 

D.STAT — status word 1 (bits defined below) 

D.STA2 — status word 2 (bits defined below) 

D.LUN — logical unit number 

D.NAMC — length of name string 

D.IFI — RMS internal file identifier value 

D.PFAB — pointer to FAB or 0 

D.RSIZ ~ maximum record length 

D.RCNM — direct access record limit (word 1) 

D.RCN2 — direct access record limit (word 2) 

D.RCCT — record count for BACKSPACE (word 1) 

D.RCC2 — record count for BACKSPACE (word 2) 

D.AVAD — address of associated variable or 0 

D.STS -- RMS status code 

D.STV — RMS secondary status code 

D.RNUM — current direct access record number (2 words) 

D.SPAR — spare word (reserved) 

D.RAB — start of RMS RAB 

D.NAM — start of file name string save area 

Several of these words have different uses depending on the kind of 
I/O operation. 

The FORTRAN header portion of the LUB contains two status words. The 
bits in these status words have symbolic names of the form DV.xxx. 
All unused bit positions are reserved. These bits are defined as 

tollows; 


Status Bits 

for Word 

1 (D.STAT) 

Symbol 

Value 

Description 

DV.SEQ 

1 

Sequential access 

DV.DIR 

2 

Direct access 

DV.KEY 

4 

Keyed access 
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Status Bits for Word 1 (D.STAT) 


Symbol 

Value 

Description 


DV.FIX 

10 

Fixed-Length records 


DV.FAK 

20 

Partial LUB for ENCODE/DECODE and 
files 

internal 

DV.FACC 

40 

File access set by CALL FDBSET 


DV.VAR 

100 

Variable-Length records 


DV.OPN 

200 

Unit open 


DV.FMP 

2000 

Formatted unit 


DV.UFP 

4000 

Unformatted unit 


DV.SEG 

10000 

Segmented records 


DV.CLO 

20000 

Close in progress 


DV.FRE 

40000 

Free format prohibited (short 

termination) 

field 

DV.RW 

100000 

Input or output operation (0—read, l=write) 

:us Bits 1 

Eor Word 

2 (D.STA2) 


Symbol 

Value 

Description 


DV.SEQ 

1 

Sequential organization 


DV.REL 

2 

Relative organization 


DV.IDX 

4 

Indexed organization 


DV.CC 

10 

Explicit carriage control specified 


DV.SPL 

20 

DISP = 'PRINT' specified 


DV.DEL 

40 

DISP = 'DELETE' specified 


DV.AI4 

100 

Associated variable is INTEGER*4 data 

type 

DV.RDO 

400 

READONLY specified 


DV.UNK 

1000 

TYPE = 'UNKNOWN' specified 


DV.OLD 

2000 

TYPE = 'OLD' specified 


DV.NEW 

4000 

TYPE = 'NEW' specified 


DV.SCR 

10000 

TYPE = 'SCRATCH' specified 


DV.APD 

20000 

ACCESS = 'APPEND' specified 


DV.SAV 

40000 

DISP = 'SAVE' specified 


DV.RSZ 

200 

Explicit RECORDSIZE specified 


DV.BN 

100000 

BLANK = 'NULL' specified 
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allocates ^he^AE^and^dditf ll ® open and close operations. FORTRAN 
D.PFAB points to this^FAB^ ° nal contro1 Information. The LUB offset 


information^ h "oIudi^ rt ‘r "ft of control 

POROnn.DAT*, where nn is the logical unit SSr. stci,,!l 


The information in the FORTRAN header portion is as follows: 
F.STAT — FAB status byte 

F.KYCT — number of keys in the OPEN statement KEY parameter 
F.PXAB pointer to key definition XAB control block 
F.SPAR — spare (word reserved for future use by DIGITAL) 
F.DNAM — start of default file name string 
F.FAB — start of RMS FAB 


points^to^this"block kay de£inltIon XABs > and FAB blSck offSt p“S 




X.XAB — start of RMS XAB 

X.POS — start position of key specification 
X.SIZ — size of key specification 
X.DTP — data type of key specification 
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CHAPTER 5 


OVERVIEW OF FORTRAN INPUT/OUTPUT 


There are three kinds of OTS input/output (I/O) support modules: 

• Those that are independent of a file system 

• Those that use the FCS-11 file system 

• Those that use the RMS-11 file system 

This section describes some of the independent I/O modules (see 
Chapter 8 for the format-processing routines) and provides an overview 
of the I/O subsystem. Chapter 6 describes the FCS-ll-specific modules 
and Chapter 7 describes the RMS-ll-specific modules. 

FORTRAN I/O processing consists of three layers or levels: 

• Compiled-code interface 

• Data formatting 

• Record processing 

The compiled-code interface level consists of the routines called 
directly by the compiled code. The routines (listed in Table 5-1) 
take the compiled-code arguments, transform them into OTS standard 
form, and pass them to the data-formatting level. 

The data-formatting level accepts the standard I/O arguments and 
produces I/O records as specified by the data elements and format 
control. Then the records are passed to or received from the next 
level — the record-processing level. 

The record-processing level interfaces with the file management 
systems to read and write logical records. It is the only level 
dependent on a particular file system. 

Figure 5-1 illustrates the I/O subsystem. 
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Figure 5-1: The I/O Subsystem 


5.1 COMPILED-CODE INTERFACE 


The compiled-code interface is the external interface for the OTS 
subsystem. 


I/O 


I/O statements produce three types of subroutine calls in the compiled 
code: 


• Initialization calls — set up the I/O system for the specific 
I/O requested, open the specified logical unit if necessary, 
and declare the I/O system to be active 

• Element transmission calls (if any) — generate calls to the 
OTS for entities in the I/O list 


• Termination calls — complete the I/O operation and 
the I/O system inactive 


declare 
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For example, the FORTRAN statements 

DIMENSION A(10) 

READ (2) I,A,B 


are compiled into the following code: 


MOV #2,-(SP) 

JSR PC,ISU$ 

MOV #I,-(SP) 

JSR PC,IOAI$ 

MOV #A$ADB,-(SP) 
JSR PC,IOAA$ 

MOV #B,-(SP) 

JSR PC,IOAR$ 

JSR PC,$EOLST 


;Unit number 
/Initialize READ 
/Address of I 
/Transmit integer 

/Address of array descriptor for A 

/Transmit array A 

/Address of B 

/Transmit real 

/End-of-list 


5.1.1 Initialization Processing 


There is 
compiled 


FORS rat T/n ini v 1 ! lizatlon " proCessing r °utine for 
FORTRAN I/O statement. These 


routines take 


each 
the I/O 


• XXX$ — for I/O statements that do not use END= or ERR= 

• XXXE$ — for I/O statements that do use END= or ERR= 



Table 5-1: I/O 

Initialization Entries 

Entry 

Name 

Arguments 

Function 

ISF$ 

ISFE$ 

u,f 
u,f ,e 

Sequential formatted input 

ISU$ 

ISUE$ 

u 

u,e 

Sequential unformattted input 

IRF$ 

IRFE$ 

u,r ,f 
u,r,f ,e 

Direct formatted input 

IRU$ 

IRUE$ 

u,r 
u,r ,e 

Direct unformatted input 

IKF$! 

IKFE$ 1 

u,f,k,kr ,km 
u,f,k,kr ,km,e 

Character keyed formatted input 

1. These 

entries are supported 

only by RMS-11 versions. 


(continued on next page) 
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Table 5-1 (Cont.): I/O Initialization Entries 


Entry 

Name 


Arguments 


Function 


IKU$ 1 1 

u,k,kr ,km 

IKUE$ X 

u,k,kr ,km # e 

ILF$ X 

u,frlfkr,km 

ILFE$ 1 

u r f * 1 ,kr ,km,« 

ILU$! 

u,l,kr ,km 

ILUE$ 1 

u, 1 ,kr,km ,e 

OSF$ 

u,f 

OSFE$ 

u,f ,e 

OSU$ 

u 

OSUE$ 

u ,e 

ORF$ 

u,r ,f 

ORFE$ 

u,r,f ,e 

ORU$ 

u,r 

ORUE$ 

u,r,e 

RSF$ 1 

u,f 

RSFE$ 1 

u,f ,e 

RSU$ 1 

u 

RSUE$ 1 

u ,e 

ENF$ 

c,f ,a 

ENFE$ 

c ,f,a ,e 

DEF$ 

c,f ,a 

DEFE$ 

c ,f,a ,e 

ISL$ 

u 

ISLE$ 

u, e 

OSL$ 

u 

OSLE$ 

u, e 

DLS$ 1 

u 

DLSE$ 1 

u ,s 

DLR$ X 

u,r 

DLRES 1 

u,r ,e 

FDR$ 

u f r 

FDRE$ 

u,r ,e 

ENDF$ 

u 

ENDFE$ 

u, s 

REWI$ 

u 

REWIE$ 

u ,s 

1. These 

entries are suppo 


Character keyed unformatted 
input 

Integer keyed formatted input 
Integer keyed unformatted input 
Sequential formatted output 
Sequential unformatted output 
Direct formatted output 
Direct unformatted output 
Formatted rewrite 
Unformatted rewrite 
ENCODE 

DECODE 

List-directed input 
List-directed output 
Sequential DELETE 
Direct DELETE 

Direct FIND 

ENDFILE 

REWIND 

only by RMS-11 versions. 


(continued on next page) 
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Table 5-1 (Cont.): I/O Initialization Entries 


Entry 

Name 

Arguments 

Function 

UNLK$ 1 

u 

UNLOCK 

UNLKE$ 

u,s 


DEFF$ 

u,mr ,rl ,v ,vf 

DEFINEFILE 

I IF$ 

d,f 

Internal file read 

IIFE$ 

d,f,e 


IIFA$ 

adb , f 


IIFAE$ 

adb,f,e 


OIF$ 

d,f 

Internal file write 

OIFE$ 

d,f ,e 


OIFA$ 

adb ,f 


OIFAE$ 

adb, f ,e 



1. These entries are supported only by RMS-11 versions. 


Arguments: 

u Logical unit number — INTEGER*2 value, 
r Direct access record number — INTEGER*4 value. 


Format specifier — address of compiled format text. 

Character key specifier —— address of key descriptor, which 
has the following form: 


length of string 

address of string <——— address of descriptor 


Note that the address points to the second word of the 
descriptor. 

adb Address of the array descriptor block. 

kr Key-of-reference number — INTEGER*2 value; if no KEYID is 
specified, a value of -1 is supplied. 

e END=/ERR= specifier — address of END= label, followed by 

address of ERR label. if one of the labels is missing, a 0 
address is supplied for that label. 

1 Integer key specifier — INTEGER*4 value. 

km Key match criterion — INTEGER*2 value encoded as follows: 

0 — equal match 

1 — greater than or equal match 

2 — greater than match 

a ENCODE/DECODE buffer —— address of buffer. 
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c 

d 


s 

mr 

rl 

v 

vf 


ENCODE/DECODE buffer — INTEGER*2 value. 

Address of the character descriptor. The first word of the 
descriptor contains the length of the string; the second 
word contains the address of the string. 

ERR= statement label address. 

Maximum direct access record number — INTEGER*4 value. 
Record length in 16-bit words — INTEGER*2 value. 

Address of associated variable. 

Associated variable data type flag — INTEGER*2 value 
encoded as follows: 

0 = INTEGER*2 data type 
-1 = INTEGERM data type 


NOTE 

If a run-time format is specified, the 
run-time format compiler FMTCV$ 
overwrites the source address of the 
run-time format array with the address 
of the compiled format string. 


functions 


5 1 1.2 $INITIO — The $INITIO routine performs specifi 
based on the arguments passed by the initialization—processing 
routines°descr ibed f in S.otioS 5.1.1.1. In addition, SINITIO pavas tha 
way for the remaining levels of processing by storing the 
data-formatting routine address in the impure area offset W.EXJ, ana 
the appropriate record-processing routine address in the impure area 

offset RECIO. 

As mentioned, the routines that pass arguments to $™ITIO use a 
bit-encoded mask to indicate what operations need to be P er *°™ e £; 
When $INITIO is called, RO points to the stack arguments and Rl 
contains the bit-encoded mask. 


The symbols and argument masks used by the routines are 
Tables 5-2 and 5-3, respectively. Table 5-4 describes 
$INITIO performs based on the bit settings. 


described in 
the operations 


Table 5-2: I/O Initialization Symbols 


Symbol 


Value 


Description 


FL.ERR 
FL.INB 
FL.IND 
FL.ENC 
FL.FMT 
FL.REC 
FL.FMP 
FL.WRT 
FL. RD 


100000 

40000 

20000 

11000 

4200 

2400 

200 

140 

40 


END=/ERR= present 
Internal files passed by ADB 
Internal files passed by descriptor 
ENCODE/DECODE statement 
Format present 

Direct access record number present 
Formatted operation permitted 
WRITE operation (with implied OPEN) 
Read operation (with implied OPEN) 

(continued on next page) 


5-6 















OVERVIEW OP FORTRAN INPUT/OUTPUT 


Table 5-2 (Cont.): I/O Initialization Symbols 


Symbol Value 


Description 


FL.EDA 
FL.FMA 
FL.RNM 
FL.EDL 
FL.DIR 
FL.OUT 
FL.OPN 
FL.IGN 

FL.KEY 
FL.REW 
FL.DEL 
FL.KIN 


10000 

4000 

2000 

1000 

400 

100 

40 

20 

10 

4 

2 

1 


ENCODE/DECODE buffer address 
Format address 
Record number 

ENCODE/DECODE buffer length 
Direct access 
Output operation 
OPEN required 

Ignore format and record type 
checks 

Keyed access 

REWRITE 

DELETE 

Integer key value 


Table 5-3: I/O Initialization Argument Masks 


Mask 


Meaning 


ISF$ 

OSF$ 

ISU$ 

OSU$ 

ISL$ 

OSL$ 

RSF$ 

RSU$ 

IRF$ 

ORF$ 

IRU$ 

ORU$ 

IKF$ 

IKU$ 

I LF$ 

ILU$ 

ENF$ 

DEF$ 

ENDF$ 

DLS$ 

DLR$ 

FDR$ 

ILF$ 

I IFA$ 


OIF$ 

OIFA$ 


Sequential formatted input: FL.FMT+FL.RD 
Sequential formatted output: FL.FMT+FL.WRT 
Sequential unformatted input: FL.RD 
Sequential unformatted output: FL.WRT 
Sequential list-directed input: FL.FMP+FL.RD 
Sequential list-directed output: FL.FMP+FL.WRT 
Sequential formatted rewrite: FL.FMT+FL.WRT+FL.REW 
Sequential unformatted rewrite: FL.WRT+FL.REW 
Direct formatted input: FL.FMT+FL.REC+FL.RD 
Direct formatted output: FL.FMT+FL.REC+FL.WRT 
Direct unformatted input: FL.REC+FL.RD 
Direct unformatted output: FL.REC+FL.WRT 
Character keyed formatted input: FL.KEY+FL.FMT+FL.RD 
Character keyed unformatted input: FL.KEY+FL.RD 
Integer keyed formatted input: 

FL.KEY+FL.FMT+FL.RD+FL.KIN 

Integer keyed unformatted input: FL.KEY+FL.RD+FL.KIN 

ENCODE statement: FL.FMT+FL.ENC 

DECODE statement: FL.FMT+FL.ENC 

ENDFILE statement: FL.WRT+FL.IGN 

Sequential delete: FL.WRT+FL.IGN+FL.DEL 

Direct delete: FL.WRT+FL.REC+FL.IGN+FL.DEL 

FIND statement: FL.RD+FL.REC+FL.IGN 

Internal file read: FL.IND+FL.FMT 

Internal file read with address of ADB passed as the 
Internal logical unit number: 

FL.INB+FL.FMT 

Internal file write: FL.IND+FL.FMT 

Internal file write with address of ADB passed as the 
Internal logical unit specifier: 

FL.INB+FL.FMT 


NOTE 

If the corresponding END=/ERR= -entry 
point is called (for instance, ISFE$ 
rather than ISF$), the argument mask 
includes FL.ERR. 
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Table 5-4: I/O Initialization Routine Functions 


Function 


Description 


FL.DEL 

FL.DIR 
FL.KEY 


FL.EDA 

FL.EDL 

FL.ERR 

FL.FMA 

FL.FMP 


FL.IGN 


FL.INB 


If the file organization is sequential, issue OTS 
error 55, DELETE statement error. 

Compare the access mode of the I/O statement with the 
access mode of the logical unit; issue OTS error 31 
if the access mode does not match. Issue OTS error 26 
if direct or keyed access is required but has not been 
specified. Valid combinations are: 

Direct access I/O —— direct access unit 

Sequential access I/O — sequential or keyed 
access unit 

Keyed access I/O — keyed access unit 

Save the ENCODE/DECODE buffer address in the impure 
area offsets, LNBUF (start address) and BLBUF (current 
address) . 

Add the ENCODE/DECODE buffer length to the start 
address to determine the end address of the buffer. 
Save this value in impure area offset EOLBUF. 

Save the END= address in impure area offset ENDEX, and 
the ERR= address in impure area offset ERREX. 


Save the format address in impure area offset FMTAD. 

Compare formatting type specified with format type of 
the logical unit. Mixed formatted and unformatted 
operations are not permitted. Issue OTS error 31 if 
the format types do not match. 

Ignore the format checks for ENDFILE, FIND, and DELETE 
since both formatted and unformatted are permitted. 
Ignore the record type check since record type depends 
on format. 

Save the format address in impure area offset FMTAD. 
Save the internal logical unit address in the impure 
area offsets LNBUF (start address) and BLBUF (current 
address). Add the bytes per element from offset A.BPE 
in the array descriptor block to offset LNBUF to 
determine the end address of the internal logical 
unit. Save this value in impure area offset EOLBUF. 
Divide the total size of the array in bytes (offset 
A.SIZB in the ADB) by the bytes per element (offset 
A.BPE) to determine the number of records and store 
this value in the impure area offset DENCWD. 

(continued on next page) 


5-8 














OVERVIEW OF FORTRAN INPUT/OUTPUT 


Table 5-4 (Cont.): I/O Initialization Routine Functions 


Function 

Description 

fl.ind 

ff''® format address in impure area offset FMTAD. 

ve the internal logical unit address in the impure 

ad r d e ressf Set AdH N ?h UF address > and BLBUF (current 

ddress). Add the length of the internal loqical unit 

specifier to offset LNBUF to determine the end address 
of the internal logical unit. Save this value in 

impure area offset EOLBUF. Ue ln 

FL.KEY 

^:« h v;^ al ^hJT ri n or ? ddress in impure a ” a 

ar “ iff?lP« C i no » he ke y-of-reference number in impure 
ar.a »fS^ £££: ‘" d the n,atch ' Ialua ‘-Pure 

FL.KIN 

Save the integer key value in impure area offset 
W.KNUM and W.KNUM+2. Set W.FDTP to integer. f 

fl.opn 

If the iogica! unit is not yet open, open it using the 
default open processor $OPEN. g 

FL.OUT 

Set the logical unit status to input or output as 
appropriate. if output is specified and the logical 

nit is declared read-only, issue OTS error 47. 

FL.REW 

If the file organization is sequential or relative 
issue error OTS 54, REWRITE statement error. ' 

fl.rnm 

Save the direct access record number in impure area 
offsets W.RECL and W.RECH as an INTEGER*4 value. 


5.1.2 List Element Transmission 

data C °itei e in C the I/^list® d ?he data^ja 310 " C * U t0 th * ° TS for each 
the form: ' ' The data transmission entry points are of 

IOat$ 


Designates whether the argument is an address or a value- can be 
A, for address, or V, for value. ' can b€ 

The data type of the list element as follows: 

B — byte 
L — Logical *2 
M — Logical*4 
I — Integer *2 
J — Integer*4 
R — real 

D — double precision 
C — complex 
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There are additional entry points, used only for 
addresses. They are defined as follows: 


arguments that are 


IOAH$ — transmits a Hollerith constant (output ot the 

argument is the address of the first byte or 
constant as an ASCIZ string. 


IOAA$ - 


- transmits an entire array by name. The 

address of the array descriptor block, ^or formatted 
I/O each array element is passed individually to th 
data-formatting level. For unformatted I/O, the entire 
array is passed as a single large data item. 

IOAVA$ — transmits an entire virtual array . rintor'block^ 6 
argument is the address of the array descriptor block. 


One entry is used for an argument 
(length, address descriptor): 


that is two words 


IOACH$ — transmits a character string. The argument is the 
length of the character string and the address of the 
first byte of the ASCII string. 

offset W.EXJ. The impure area offsets set up 
ITEMSZ —— size in bytes of the data item. 

VARAD — address of the first byte of the data item, or 0 if at 
end of list. 


W.VTYP - 
W.CPXF - 


_ data type code of data item. 

P d r srrSr\.EE“ 

-I 1 indicates 3 a 

complex item. 


5.1.3 Termination Call 

The routine at entry point EOLST$ is called to specify the end of 
I/O list. No arguments are required. 


the 


5.2 DATA-FORMATTING LEVEL 

. interface level calls data-formatting routines to 

transmit 1 data°between 3 records and I/O list items, including any common 
operations that are required. 

For formatted I/O, there are three routines: 


$FIO — format processor 

$LSTI — list-directed input processor 

$STO — list-directed output processor 

These routines are called with no register arguments; 
registers are undefined. 


on return all 
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€ 

C 

O 



For unformatted I/O, since conversion is not needed, the appropriate 
initialization modules maintain the transfer code as routines. 

The data-formatting routines accept data item descriptions from the 
impure area offsets ITEMSZ, VARAD, W.VTYP, and W.CPXF. On input, the 
routines read the next field of the record and transfer data to the 
1 J ei ”‘ 0n . ou tput, the data item value is transferred to the record. 
The following impure area offsets describe the record being processed: 

LNBUF —— start of buffer address 

BLBUF — address of next data byte 

EOLBUF —— end of buffer address 

When a new record must be read, or an output record is full, the 
record-processing routine specified by impure area offset RECIO is 
called to process the record. On input, the old record is discarded, 
a new record is read, and the impure area record description is 
updated. On output, the record is written and a new buffer area is 
set up. 


5.3 RECORD PROCESSING LEVEL 

The record-processing routines are called to transfer records to and 
from the file system. The record—processing routines are: 

$GETS — sequential input 

$PUTS — sequential output 

$GETR —— direct input 

$PUTR — direct output 

$GETK — keyed input 

$UPDATE — rewrite 


5.4 PRINT, TYPE, AND ACCEPT STATEMENTS AND LOGICAL UNIT 0 

The PRINT, TYPE, and ACCEPT statements compile into equivalent READ 
and WRITE statements using default unit numbers. Default unit numbers 
are small negative integers, which $FCHNL maps through a table in 
impure storage to actual unit numbers. This table also has global 
names for each statement to allow modification of the mapping. The 
global names are: 

$PRINT for PRINT 

$TYPE for TYPE 

$ACCPT for ACCEPT 

$READ for READ 

The unit number value is at impure area offset W.LNMP. The mapped 
values are at offsets W.PRNT for PRINT, W.TYPE for TYPE, W.ACPT for 
ACCEPT, and W.READ for READ, with no unit number. 
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PRINT — compiles into OSF$ with unit number = -1, maps to 6 

TYPE — compiles into OSF$ with unit number = -2, maps to 5 

ACCEPT — compiles into ISF$ with unit number = -3, maps to 5 

READ — compiles into ISF$ with unit number = -4, maps to 1 

If you specify logical unit 0, you must use the GBLPAT option of the 
Task Builder to associate a valid logical unit number (1-99) with 
global $LUN0. $FCHNL (see Section 5.6.1) uses the value of $LUN0 to 
change FORTRAN logical unit 0 to a valid system logical unit number. 
If you attempt to use logical unit 0 without moving a valid number to 
$LUN0, an error occurs. 


5.5 OPEN AND CLOSE STATEMENTS 

The OPEN and CLOSE source statements allow user programs to control 
the attributes and characteristics of files. The compiled code for 
these statements uses the standard R5 calling sequence with a special 
argument list encoding, as follows: 

ARGLST: .WORD 2n 

KEY1 


KEYn 

There is one argument for each keyword in the FORTRAN source 
statement. Each argument consists of a 2-word block, formatted as 
follows: 


15 8 7 0 


ARGTYPE 

KEYWRD ID 

INFO 


KEYWRD ID 

The low-order byte of the first word contains the keyword 
identification number associated with the keyword name in the 
source statement (see Table 5-5). 

ARGTYPE 

The high-order byte of the first word contains the argument type. 
It is used in conjunction with the INFO word to identify the 
keyword's value. 


INFO 

The second word is called the information word; its use depends 
on the ARGTYPE value. 

The possible ARGTYPE values are 1 through 7. The meanings of each 
ARGTYPE are as follows: 

ARGTYPE Value Meaning 

1 The keyword's value is an INTEGER*2 constant 
expression. The INFO word contains the value. 

2 The keyword's value is an INTEGER*2 variable. The 
INFO word contains the address of the variable. 
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ARGTYPE Value 


Meaning 


3 

4 


5 


6 

7 


The keyword's value is an INTEGER*4 variable. 
INFO word contains the address of the variable 


The 


The keyword's 
decodable by 
the keyword's 


value is an alphanumeric literal 
the compiler. The INFO word contains 
value encoded as a small integer. 


The keyword's value is a variable, array, array 

ASCTT n m,ii 0r h character constant terminated by an 
ASCII null character (zero-byte). The INFO word 
contains the address of the start of the string. 

The keyword's value is the address of an external 
procedure. The INFO word contains the address. 


The keyword's 
descriptor. 
contains the 
contains the 
contains the 
descriptor. 


value is the address of a 2-word 
The first word of the descriptor 
length of the string; the second word 
address of the string. The INFO word 
address of the first word of the 


duplicates^' S T ° rd "' but there ca "" ot any 

keyword iCat| rhe ^able^al • the ARG ™?ES d piraissibl^witr^Mch 
literal encoding possible ?or Je^dTwhisnMTOErarrl 335001 *^ 


Table 5-5: Summary of Argument Blocks by Keyword 


Keyword 

Name 

Keyword 

Number 

Allowed 

Argtypes 

Literal 

Values 

Literal 

Encoding 

ACCESS 

A 






4 

DIRECT 

1 




SEQUENTIAL 

2 




append 

3 




KEYED 

4 

associatevariable 

17 

2,3 



BLANK 

25 

4 

NULL 

1 




ZERO 

2 

BLOCKSIZE 

18 

1,2,3 



BUFFERCOUNT 

9 

1,2,3 



CARRIAGECONTROL 

7 

4 

FORTRAN 

1 




LIST 

2 




NONE 

3 

CHARKEY 1 

23 

1,2,3 




L^lCirHd ~ b o% r INTKEY^ 

speciflcatTonf 8 an ^" NT ^V Unote^tL Hit ^pe^the Jey 


(continued on next page) 
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Table 5-5 (Cont.): Summary of Argument Blocks by Keyword 


Keyword 

Name 

Keyword 

Number 

Allowed 

Argtypes 2 

Literal 

Values 

Literal 

Encoding 

DISPOSE 

2 

4 

SAVE 

DELETE 

1 

2 




PRINT 

3 





Label 

ERR 

3 



address 

EXTENDSIZE 

11 

1,2,3 



FILE or NAME 

14 

5,7 



FORM 

s 

4 

FORMATTED 

1 



UNFORMATTED 

2 

INITIALSIZE 

10 

1,2,3 



INTKEY 1 

24 

1,2,3 



KEY 1 

22 

1,2,3 



MAXREC 

16 

1,2,3 



NOSPANBLOCKS 

12 

— 



ORGANIZATION 

19 

4 

SEQUENTIAL 

RELATIVE 

1 

2 




INDEXED 

3 

READONLY 

8 

— 



RECORDSIZE or RECL 

6 

1,2,3 



recordtype 

20 

4 

FIXED 

VARIABLE 

1 

2 




SEGMENTED 

3 

SHARED 

13 

— 



STATUS or TYPE 

15 

4 

OLD 

NEW 

1 

2 




SCRATCH 

3 




UNKNOWN 

4 

UNIT 

1 

1,2,3 




1 KFY occurs one time and gives the number of key specifications. 
KEY is followed by n pairs of CHARKEY or INTKEY keywords giving 
the siart and end positions of each key specification The 
pseudo-keywords CHARKEY and INTKEY denote the data type of the y 
specification• 

2. The ARGTYPE field for the ERR= keyword contains the ™mber of 
bytes of temporary stack storage which must be deleted if an ERR 
transfer occurs. 
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OPEN (UNIT=I, 

ERR=99, NAME 

When it is compiled 

, the code ( 

• 

MOV 

• 

• 

ARGLST,R5 

JSR 

PC,OPEN$ 

• 

ARGLST: .WORD 

• 

• 

6 

• BYTE 

1,2 

.WORD 

I 

• BYTE 

3,2 

• WORD 

.99 

.BYTE 

14,5 

.WORD 

STRING 

• 

STRING: .BYTE 

• 

• 

101,56,104,; 


/Address of arg list 
/Open the file 


;3 args 

/UNIT, ARGTYPE=2 
/Address of I 

2 bytes of stack temp 
/Address of label 
/NAME, ARGTYPE=5 
/Address of string 


/’A.DAT’ 


5.6 OTHER INTERNAL SUPPORT ROUTINES 

routines the^TS^ses!" 3 describe several other internal suppor 


routines serve as 


the comm< 


5.6.1 $FCHNL, $GETFILE, and $IOEXIT 

The $FCHNL, $GETFILE, and $IOEXIT 
entrance and exit to the i/o system. 

$FCHNL locates the r hr frw 

error for invalid unitsf it ic f 1 u unit number and issues 

R2 and returns the address of the lo 9 ical unit number 

*3 used as an error £?ag on return? r‘^ LU ! R °- "■« C-b 

clear if there is not an error On rof se ^ there is an erroi 

undefined, R3 contains the ‘impure a^a ^ e ? 1 f ters R1 a ^d R2 a. 
preserved. mpure area pointer, and R4 and R5 ai 

checks the status of C the'unit S is^n^^ 6 area offset » ar 
It does not return the c-bit "error flan* 6 * 3 * he Same way as $FCHN I 
returns are identical to $FCHNL. 9, ‘ however ' its registe 

tL° EX ^ R = re t^an r s e fe^ e T rSgiSter State -d execute 

and the work area pointer in R^ th th ® ERR= trans fer address in R 
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5 . 6.2 Default File Open processing — $OPEN 

A default open is the implicit opening lo aical^nit. READ or 

executing an I/O statement on * a nit open is equivalent to the 

"uowinfSp™ statement*^uni ess a DEFINEFILE has been execeted, : 

° P ™ of P the°l/ 0 , statement"^ 0 ACCESS=' l SEQUENTiAL^ NK- 

Jhe%oUo»ln S 9 ta ^Erstitere'r“niess e , d DEF«E t F 0 lErhas S be^ U e”ou?ed)-° 

<«- ^ p ?h: N ^-s^^: o Acc^i2 u .s^^iA^ K ' ,ZER0 ' • 

si.;gs ?r? h :p?e“rr,n p rr”sperav u :!v. th ' lr de£ault 

ic railed with RO pointing to the LUB 

K d R 3 aU polntlng° P to P STSS.» » «“«• *" 

preserved. 


5 . 6.3 Default File Close Processing — $CLOSE 

The file close processor is invoked when any one of the 
occurs s 

• A CLOSE statement is executed. 

• A CALL CLOSE subroutine is executed. 


following 


• A program terminates. 

• A file open fails. 

r sr r^r fd%1 ^ 

delete, or print the file. 

This routine is called with the logical i^reVea?"!i 

K'pr2iir»l2; ^Jh:"^; «it!i^S‘ “ “ an 

error occurred during the close operation. 


5 . 6.4 Direct Access Record Number Checking $CKRCN 

$CKRCN compares the current record number ^with^ the^max ^ off 

‘-a; s N ,hi 9 h.*«, . and - —sSh : « 

number, if it exists, is at D.RCNM (low ora j ret urned in R 1 (high 

in the LUB. If the record number i^valid^it ^ with the LUB 

address ^Rofani the impurlVea pointer in R 3 . Registers R 4 and 
are preserved. 
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5.6.5 Associated Variable Update — $ASVAR 


incremented ^y^onerhand^sto^ed^in^h offsets .W.RECL and W.RECH, 
address in D.AVAD in’the LUB. the assoclate variable at the 


5.6.6 


Keyed I/O Specifier Checking — 


9*~KKEY 


letf Y t^ rI pJoper he c^Loi eC l«^rmi?? ' n • k T d 1/0 «««"*»<= and 

called wit/thf L UB pofn^r In RO and ?h L0B ' ™ Is 
Registers Rl and R2 are de.troya.-JlfJtfiniKSrrS^.i:,^- 


5 - 6 -7 Register Save and Restore —* $SAVPx 

p™ce“™ r s;pport Pr ?or ld *Lol h e e „ and argument 

routine T^Vc^ ?“ t *™ 3 “ tG “SSJi'SL'SS 

frailer g* S: l S'KSrS S! /FS 

sets RO to point to tie IaUl registers on the stack, 

module. upon return from »-hf 9 n2!o tS ' * nd co_routlne calls the OTS 

routine restores the registers delete^the^J 69 ^^ save/restore 
returns to the oriainal ralUr ele tes the stack arguments, and 

$SAVP0-$SAVP8 for routines with zero t^etah^ 1 ^ 7 poi 2 tS are Provided: 
of°arguments S I BB «*” * »“.& 

r»r;o ~^ 

r„s. ul^h "S 

transfer address. Dumped to with RO containing the 


5.6.8 Register Save and Restore — .SAVR1 


Several OTS routines call the FCS-11 reqiste 
to save and restore registers Rl through R5 


save co-routine .SAVR1 
co-routine fashion. 


5.7 FORTRAN FILE AND RECORD FORMATS 


This section describes the 
by the FORTRAN I/O system. 


file and record formats that are 


processed 


5.7.1 Sequential Organization Files 
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and are used for unformatted sequential 

files. 

"««" length^ 3 record SESIS?'ctS 

SKSSl^inSEd t£t It Is oSe of the following, 

• The first segment in the segmented record 

• The last segment in the segmented record 

• The only segment in the segmented record 

• None of the above 

's Wt.ij sr«sr.«£« 

bits must be zero. 

i! 2 STisr I •“ = ;.js 

segment is not the first, last, or only segment in the record. 

This control system.**'if'"unformatfed 1 "sequential 

fUes P are to Ee^ocessed L any othe? way, the files must be created 
with either fixed- or variable-length records. 

The FORTRAN I/O system does not support system files or files with 
variable fixed control (VFC) format records. 


5.7.2 Relative Organization Files 




5.7.3 Indexed Organization Files 

You can process indexed files only £ a cSolVtfus^ 

fixed lenqth or variable length. Eacn recoru , a o-hvfe 

for deletion control, ^ariable-length^records^a^so i ^ m 

binary count field. Each re n contro i information is stored 

fE; tr °eaci E r ur k Et° j5di£i£!l buckets are required for index areas, 
alternate key areas, and RMS control information. 
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This chapter discusses the FCS-ll-specific portions of the OTS in 
£££?& ope^lois?* e ’ IPliOU rcs — to implement 


The following register assignments are normally made 
portion of the OTS: 1 


within the 


I/O 




RO address of the FCS File Descriptor Block (FDB) 

R1 address of the Logical Unit Block (LUB) 

R3 — address of the work area 
R2 and R4 — scratch registers 


A JSR PC,xxx instruction calls all 
calls. R5 is generally preserved. 


routines except the co-routine 


6.1 FCS—11 I/O CONTROL BLOCK 

syst ? m associates a single control block, called the 
File Descriptor Block (FDB), with each open unit. The FDB is 
incorporated within the FORTRAN Logical Unit Block (LUB). See Section 

ikbRl^llT/o f ° r n abou£ thi Lui See tSe 

H T ta struc t^is ^ ^ ference ^ nual *>* more information on FCS 


6.2 OPEN PROCESSING 

Default fiie open processing and OPEN statement processing merge into 

loplis 9 invok^T "° Utlne ' $0PEN$ i see Section 6.2.3), for a file open. 

Slain maCr ° °™ B$ ' Which P erfo ™s all file open 

FORTRAN difault f ! nai " e parSlng logic is not required — that is, if 
FORTRAN default file names are used — the routines for file name 

parsing are not included in the task. Table 6-1 shows the Spen 
state ment keywords, the possible values of the keywords, and the FDB 
settings associated with the keyword values. 
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Table 6-1: Summary of OPEN Statement Keywords and FDB Settings 


Keyword 

Name Value 


FDB Setting 


ACCESS 


•DIRECT' 

'SEQUENTIAL' 

'APPEND' 


ASSOCIATEVARIABLE v 

BLANK 'NULL' 

'ZERO' 


BLOCKSIZE n 

BUFFERCOUNT n 

CARRIAGECONTROL 'FORTRAN' 

'LIST' 

'NONE' 

DISPOSE 'SAVE' 

'DELETE' 

'PRINT' 


ERR 

EXTENDSIZE 
FILE or NAME 


Set FD.RAN in F.RACC 
Set FO.APD in F.FACC 


Set n in F.OVBS 

Set n in F.MBCT 

Set FD.FTN in F.RATT 
Set FD.CR in F.RATT 


Use CLOSE$ at file close 
Call .DLFNB at file close 
Call .PRINT at file close 


Set n in F.ALOC 

Call $FNBST 

to set File Name 
Block of FDB 


FO r M 'FORMATTED' 

'UNFORMATTED' 

INITIALSIZE n 

MAXREC n 

NOSPANBLOCKS 
READONLY 

RECORDSIZE or RECL n 

SHARED 

STATUS or TYPE 'OLD' 

'NEW' 

'SCRATCH' 
'UNKNOWN' 


UNIT n 

RECORDTYPE 'FIXED' 

'VARIABLE' 

'SEGMENTED' 


Set n in F.CNTG 


Set FD.BLK in F.RATT 

Set FO.RD in F.FACC 

Set n in F.RSIZ 

Set FA.SHR in F.FACC 

Use OPEN$U 
Use OPEN$W 
Use OPNT$D 

Try OPEN$U, if no such 
file, then OPEN$W 

Set n in F.LUN 

Set R.FIX in F.RTYP 
Set R.VAR in F.RTYP 
Set R.VAR in F.RTYP 


USEROPEN 


P 
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Notes: 


f 

is 

an 

n 

is 

an 

s 

is 

an 

V 

is 

an 

P 

is 

an 


array, array element, variable, 
integer expression, 
executable statement label, 
integer variable name, 
external procedure name. 


or character constant. 


6.2.1 OPEN Statement Processing 

In OPEN statement processing, an argument list is searched and each 
keyword is located in a prescribed order. All information required 
for each keyword is available when that keyword is processed. An 
appropriate default is used for keywords not in the list. If any 
errors occur during the search, the execution of the OPEN statement is 
not attempted, the ERR= transfer is executed, and the LUB is zeroed. 

The processing for each keyword is as follows: 

• ACCESS — 'DIRECT' sets DV.DFD; 'APPEND' sets DV.APD. If 

DV.RDO is set and DV.APD is specified, an error occurs. If 
DV.APD is not specified, the default is 'SEQUENTIAL'. 

• ASSOCIATEVARIABLE — The variable address is stored at D.AVAD. 
If the variable is type INTEGERM, DV.AI4 is set. 

• BLANK — 'NULL' sets DV.BN. Note that if the /F77 switch is 
set and no BLANK= is specified, the compiler passes a 
BLANK='NULL' parameter. 

• BLOCKSIZE — The value specified is stored at F.OVBS. An 

error occurs if the value is negative or greater than 32767. 

• BUFFERCOUNT — The value specified is stored at F.MBCT. If 

the value is less than -1, or greater than 127, an error 
occurs. Note that the actual number of buffers used depends 
on which FCS version is used and on the number of buffers 
available when the file is opened. A buffer count of -1 means 
the unit is opened in block mode (READ$/WRITE$) rather than 
record mode (GET$/PUT$). In block mode, normal FORTRAN I/O is 
not permitted but the user can perform asynchronous block mode 
I/O using the FORTRAN special subroutines provided by the 
operating system. Note that when you do block mode I/O, you 
should either specify the Task Builder option MAXBUF = 
recordsize or call the system subroutine ERRSET to avoid 
run-time error 37 (inconsistent record length) . 

• CARRIAGECONTROL — If DV.CC is set 'FORTRAN' sets FD.FTN in 

F.RATT, and 'LIST' sets FD.CR in F.RATT. If DV.CC is not set 

and DV.FMP is specified, FD.FTN is the default. 

• DISPOSE — 'SAVE' sets DV.SAV; 'PRINT' sets DV.SPL; and 

'DELETE' sets DV.DEL. If DV.RDO is set, and DV.DEL or DV.SPL 

is specified, an error occurs. If a DISPOSE value is not 
specified and DV.SCR is set, 'DELETE' is the default; 
otherwise, 'SAVE' is the default. 
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• ERR — The ERR= transfer address is obtained and the stack 
adjustment value is saved in the work area at offset COUNT. 
The transfer address, if present, is stored at offset ERREX; 
if it is not present, ERREX is cleared. 

• EXTENDSIZE — The value specified is stored at F..ALOC. If it 
is positive, a contiguous extend is made; if it is negative, 
a noncontiguous extend is made. If the value is greater than 
32767 or less than —32767, an error occurs. 

• ?ILE °r NAME — If a file is specified, $FNBST is called to 
initialize the file Name block and DV.ASGN is set. $FNBST 
returns an error if the string is incorrect. 

• FORM — 'FORMATTED' sets DV.FMP; 'UNFORMATTED' sets DV.UFP. 
If no value is specified and DV.DFD is set, DV.UFP is the 
default; otherwise, DV.FMP is the default. 

• INITIALIZE — The value specified is stored at F.CNTG. If it 
is positive, a contiguous allocation is made; if it is 
negative, a noncontiguous allocation is made. If the value is 
greater than 32767 or less than -32767, an error occurs. 

• MAXREC — The value specified is stored at D.RCNM and D.RCN2. 
If the value is negative, an error occurs. 

• NOSPANBLOCKS — If this keyword is specified, FD.BLK is set in 
F.RATT. 

• READONLY — If this keyword is present, DV.RDO is set. 

• RECORDSIZE or RECL — The value is stored at F.RSIZ. If it is 

negative or is larger than the user record buffer size (MAXBUF 
value for TKB), an error occurs. If DV.UFP (unformatted) is 

specified, the value is converted to bytes from storage units 

(four bytes per storage unit). If the value given does not 
equal the value for an existing file, an error occurs unless 
the system subroutine ERRSET has been called to set the 
continuation-type for error 37 (inconsistent record length) to 
a return continuation. 

• RECORDTYPE — 'FIXED' sets DV.FIX; 'VARIABLE' sets DV.VAR; 
and 'SEGMENTED' sets DV.SEG. 

The defaults are 'FIXED' for direct access; 'VARIABLE' for 

formatted sequential access; and 'SEGMENTED' for 

unformatted sequential access. For direct access, 'VARIABLE' 
or 'SEGMENTED' is an error; for formatted, 'SEGMENTED' is an 
error. 

• SHARED — If this keyword is specified, FA.SHR is set in 
F.FACC. 

• STATUS or TYPE — If STATUS is not present, the default is 
'NEW'. Note, however, that if the /F77 switch is set and no 
STATUS = parameter is specified in the source code, the 
compiler passes a STATUS = 'UNKNOWN' parameter. 'NEW' sets 
DV.NEW; 'OLD' sets DV.OLD; 'SCRATCH' sets DV.SCR; and 
'UNKNOWN' sets DV.UNK. If DV.RDO is set, and DV.SCR, DV.NEW, 
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or DV.UNK is specified, an error occurs. If DV.APD is set, 
and DV.SCR or DV.NEW is specified, an error occurs. The file 
access byte F.FACC is set up as follows: 

DV.RDO —> FO.RD 

DV.APD —> FO.APD 

DV.SCR —> FO.WRT + FA.TMP 

DV.NEW —> FO.WRT 

DV.OLD —> FO.UPD 

DV.UNK —> FO.UPD 

• UNIT — The unit number is obtained and $FCHNL is called to 
obtain the LUB pointer. Processing is aborted immediately if 
there is no unit number, the unit number is invalid, or the 
unit is already open. 

• USEROPEN — The external procedure name is saved at offset 
W.UOPN for use by $OPEN$. 


6.2.2 Default OPEN Processing 

If DV.FACC is not set, default OPEN processing performs the following 
operations: 

• For input, it sets DV.OLD and FO.UPD. 

• For output, it sets DV.NEW and FO.WRT. 

Other fields and values may have been set by CALL ASSIGN, CALL FDBSET, 
or DEFINEFILE statements. 


6.2.3 $OPEN$ Procedure 

The $OPEN$ procedure opens the file and performs the checks and 
computations common to OPEN statement processing (6.2.1) and default 
OPEN processing (6.2.2). 

Before the file is opened, $OPEN$ performs the following operations: 

• If no user file specification is provided (DV.ASGN is not 
set), the default File Name Block of the FDB is set up. The 
routine $FLDEF is called to make the file name FOROnn.DAT (nn 
is the logical unit number)• 

• If no directory is specified for the file, the FCS routine 
•GTDID is called to set the default directory. 

• If DV.CC is not specified and the file is formatted, FD.FTN is 
set in the F.RATT field of the FDB. 

• The user record buffer description in the FDB, F.URBD, is 
initialized with the address specified by the impure area 
offset W.BFAD and the length specified by W.BLEN. 
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• FD.PLC is set in the F.RACC field of the FDB to specify locate 
mode I/O operations. 

• A record format is set as follows: if DV.FIX is set, R.FIX is 
set in the F.RTYP field of the FDB; otherwise, R.VAR is set. 

• If DV.DFD is set, FD.RAN is set in the F.RACC field of the FDB 
to specify direct access. 

• A record length is computed. If a user-specified value is 
available, that value is used; otherwise, one of the 
following values is used: 

133 for formatted files 

128 for unformatted files of fixed-length records 
126 for other unformatted files 

If DV.FIX is set, the record length value is set in the F.RSIZ 
field of the FDB. 

If impure area offset W.UOPN is nonzero, the user's routine is called 
to perform the FCS OPEN operation; otherwise, .OPFNB is called to 
open the file by file name block. If the open operation fails because 
the file cannot be found, and DV.UNK is set, the operation is retried 
with DV.NEW set, and FO.WRT set in the F.FACC field of the FDB. 

After the file is open, the following operations are performed: 

• DV.OPN is set to indicate that the file is open. 

• The record format is checked for consistency; if the 
user-specified record type does not match the file's record 
format, an error occurs. 

• The record length, D.RSIZ, is checked for consistency. 

- If the user-specified length does not match the file's 
record length for fixed-length records, an error occurs. 
If the error continuation bit specifies "RETURN", the 
user-specified length is used. 

- For variable-length records, the record length is set to 
the maximum of the user-specified length and the file's 
maximum size. 

• The user record buffer description in the FDB, F.URBD, is 
initialized with the address specified by the impure area 
offset W.BFAD and the length specified by D.RSIZ. 

• if D.RSIZ is larger than the user record buffer, as specified 
by impure area offset W.BLEN, a record size error occurs. 

If any errors occur, either reported by the FCS or resulting from the 
consistency checks, the file is closed. If the file was just created, 
it is deleted as well. 
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6.2.4 USEROPEN Interface Specification 

The USEROPEN parameter of the OPEN statement gives you a way to access 
special FCS processing options not explicitly available in the FORTRAN 
language. The value of the USEROPEN parameter is the name of a 
user-written MACRO-11 routine that the OTS calls to open a file. To 
use the special FCS processing options, you must do the following: 

• Using the MACRO-11 language, write a routine that opens the 


file 


• In your FORTRAN program, include the statement: 

EXTERNAL filename 

where "filename" is the name of the MACRO—11 routine you wrote 
to open the file. 

• In the OPEN statement in your FORTRAN program, include the 
keyword parameter USEROPEN=filename, where, again, "filename" 
is the name of your MACRO-11 routine. 

Although the MACRO-11 routine is called by the OTS (not your FORTRAN 
program), you should write it as if it were being called by a FORTRAN 
program. You must report the status of the open operation in RO. The 
OTS invokes the routine as a standard FORTRAN function of one argument 
using the standard FORTRAN calling convention: 

ISTS = userprocedure (FDB) 


FDB 


The address of the FCS FDB for the logical unit 


ISTS 


The INTEGER*2 error status to be returned. The value is expected 
to be the F.ERR FCS completion status and to follow the FCS 
conventions (positive numbers indicate success, negative numbers 
failure). Note that the status is returned only to the OTS, not 
to the FORTRAN program. 

The following limits and constraints are imposed on the user-written 
procedure: 

• All FORTRAN processing is completed prior to the call. 

• The FDB address specified is valid until the logical unit is 
closed. Note, however, that you do not have access to the FDB 
in the FORTRAN program. You can access the FDB in a MACRO-11 
program; the FDB address is at 2(R5). 

The following sample FORTRAN program and user-open procedure specify 
that an existing file of the same name should not be superseded by a 
create operation: 

EXTERNAL NOSUP 

OPEN (UNIT = 1, USEROPEN=NOSUP,TYPE= , NEW*) 


END 


MCALL OFNB$ 


NOSUP:: 


MOV 2(R5),R0 

BISB #FA.NSP,F.FACC(RO) 

OFNB$ 

MOV F.ERR(RO)•RO 
RETURN 


Get FDB addr 

Set no supercede 

Open the file 

Return completion status 
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6.2.5 File Name Processing 

Two routines — $FNBST and $FLDEF — are used to process file name 
strings and supply FORTRAN default file names. 

The File Name Block Initialization module, $FNBST, sets up the File 
Name Block (FNB) of the LUB. 

If there is a file name argument (the NAME keyword is used), $FNBST is 
called from the ASSIGN subroutine and uses the command string 
interpreter routines (.CSI1 and .CSI2) and the FCS-11 .PARSE logic to 
construct the FNB. $FNBST is called with R3 containing the impure 
area pointer, R2 containing the length of the name string, and R1 
pointing to the start of the string. Registers RO, Rl, and R2 are 
destroyed; R3, R4, and R5 are preserved. 

If no file name is provided, the Default File Name Generation module, 
$FLDEF, is called to fill in the default file name, it stores the 
default FORTRAN file name and file type in the FNB. On input, the 
FORTRAN default file name is FOROnn.DAT, where nn is the unit number. 
R3 points to the impure area. All registers are preserved. 

The following FCS-11 utility routines are invoked during file name 
processing: 

• The Default Directory Processing routine, .GTDID, is called by 
$OPEN$ to obtain the default directory used in constructing 
the File Name Block. 

• The File Name Block Processing routines, .PARSE, ,CSI$1, and 
.CSI$2, are called by $FNBST when a user file specification is 
to be used rather than the FORTRAN default file names. 
Further information on these routines can be found in the 
IAS/RSX I/O Operations Manual. 


6.3 FILE CLOSE PROCESSING 

File close processing is performed by the OTS routine $CLOSE, which 
uses the following FCS-11 routines; 

• The File Close Processing routine, CLOSES, to close files 

• The File Deletion routine, .DLFNB, to delete files 

• The File Printing routine, .PRINT, to print and optionally 

delete files 

The CLOSE source statement is compiled using an encoded argument list 

similar to that for the OPEN statement; however, only the UNIT, ERR, 

and DISPOSE keywords are allowed. The processing used is also 
similar; The argument list is searched for each allowed keyword and 
appropriate actions are taken. If any errors are encountered, the 
CLOSE is not attempted and the LUB is NOT zeroed. 
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The processing for each keyword is described below, in order of 
execution: 

1. ERR -- The ERR= transfer address is obtained and the stack 
adjustment value is saved at offset COUNT• The address is 
stored at offset ERREX, if present, 

2. UNIT — The unit number is obtained, and $FCHNL is called to 
obtain the LUB address. If no unit number is present, or if 
an invalid unit number is specified, a fatal error occurs. 

3. DISPOSE — If not present, the existing disposition is used. 
•SAVE' sets DV.SAV; 'PRINT* sets DV.SPL; and 'DELETE' sets 
DV.DEL. If DV.SCR is set, and DV.SPL or DV.SAV is specified, 
an error occurs. If DV.RDO is set, and DV.SPL or DV.DEL is 
specified, an error occurs. 


6.4 SEQUENTIAL I/O PROCESSING 

This section describes low-level OTS routines called by the I/O 
statement processors and format processors to perform the actual calls 
to FCS-11 for sequential record transfers, and to perform 
miscellaneous utility tasks. The routines are called with the work 
area address in R3. 

The sequential input routine, $GETS, does the following: 

• Obtains the LUB pointer from offset FILPTR. 

• Calls FCS macro GET$S to get a record. If FCS error IE.EOF is 
returned, or an ENDFILE record is read, the END= transfer is 
executed. If IE.EOF is returned and no END= transfer address 
is given, an error occurs. Errors cause the ERR= transfer to 
be executed. 

• Increments the record count in D.RCCT and D.RCC2. 

• Returns the actual record length in Rl, and returns the start 
address of the record in R2 (RO is undefined) . 

The Sequential Output routine, $PUTS, proceeds as follows: 

• Obtains the LUB pointer from offset FILPTR 

• Calls the PUT$S macro to output the record 

• Increments the record count in D.RCCT and D.RCC2 

$PUTS is called with the record length in Rl. Registers RO, Rl, and 
R2 are undefined upon return. 


6.5 DIRECT ACCESS I/O PROCESSING 

This section describes low-level OTS routines called by the I/O 
statement processors and format processors to perform the actual calls 
to FCS for direct access record transfers, and to perform 
miscellaneous utility tasks. The routines are called with the work 
area address in R3. 
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The Direct Access Input routine, $GETR, proceeds as follows: 

• Obtains the LUB pointer from offset FILPTR, and calls $CKRCN 
to verify the record number and return it in R1 and R2 

• Calls FCS macro GET$R to read the record 

• Calls $ASVAR to update the associated variable 
Registers RO, Rl, and R2 are undefined. 

The Direct Access Output routines, $PUTR and $PUTRI, proceed as 
follows: 

• $PUTRI is called to initialize a direct access write 

operation. 

• Obtains the LUB pointer from offset FILPTR and calls $CKRCN to 
verify the record number. 

• Stores the record number at F.RCNM and F.RCNM+2 in the FDB. 

• Calls the FCS routine .POSRC to position the file to the 

desired record. If FCS error IE.EOF is returned, it is 
ignored. All other errors cause the ERR= transfer to be 

executed. 

• $PUTR is called to write the record. 

• Obtains the LUB pointer from FILPTR. 

• Computes the number of unfilled bytes in the record. The 

record is padded to the correct length with blanks for 
formatted records and zero bytes for unformatted records. 

• Calls the FCS macro PUT$R to write the record and $ASVAR to 

update the associate variable. 

Registers RO, Rl, and R2 are undefined. 

The Direct Access Record Number Checking routine, $CKRCN, verifies the 
current record number by comparing it against the maximum record 
number for the file. The current record number is stored at offsets 
W.RECL (low-order) and W.RECH (high-order). The maximum record 
number, if it exists, is at D.RCNM (low—order) and D.RCN2 (high—order) 
in the LUB. The record number, if valid, is returned in Rl 
(high-order) and R2 (low-order). 

$CKRCN is called with the LUB address in RO, and the impure-area 
pointer in R3. Registers R4 and R5 are preserved. 

The Associated Variable Update routine, $ASVAR, obtains the current 
record number from offsets W.RECL and W.RECH, increments it by 1, and 
stores it in the associate variable at the address in D.AVAD in the 
LUB. $ASVAR is called with RO pointing to the FCS portion of the FDB. 
Registers Rl and R2 are undefined. 


6.6 AUXILIARY I/O OPERATIONS 

This section identifies and explains the routines that perform the 
operations of the following FORTRAN source statements: BACKSPACE, 
REWIND, ENDFILE, DEFINEFILE, and FIND. 


6-10 







FCS-11 I/O SUPPORT 



O 

c 

o 


BACKSPACE — BKSP$ 

The unit number is obtained and $GETFILE is called to obtain the 
LUB address. If the file is closed or is a direct access file, 
the operation is ignored. If the file is opened for append, an 
error occurs. A call to the FCS routine .POINT is made to 
position the file at the beginning (virtual block 1, byte 0). 
The record count is obtained from D.RCCT and D.RCC2 in the LUB. 
The record count is decremented by 1, and n—1 reads are 
performed. Note that the count is the logical record count, and 
therefore that multiple physical reads may be required for 
unformatted segmented records. 

REWIND — REWI$ 

The unit number is obtained and $GETFILE is called to obtain the 
LUB address. If the file is closed or is a direct access file, 
the operation is ignored. The append bit is cleared and the 
record count D.RCCT and D.RCC2 is zeroed. A call to the FCS 
routine .POINT is made to position the file at the beginning 
(virtual block 1, byte 0). 

ENDFILE — ENDF$ 

The unit number is obtained and $GETFILE is called to obtain the 
LUB address. If the file is a direct access file, an error 
occurs and the operation is ignored. If not open, the file is 
opened by $OPEN (default open) for write. A 1-byte record, 
containing an octal 32 (CTRL/Z), is output to the file, using 
$PUTS• 

DEFINEFILE — DEFF$ 

The unit number is obtained and $GETFILE is called to obtain the 
LUB address. If the unit is open, an error occurs. The number 
of records is stored at D.RCNM and D.RCN2 in the LUB. The 
recordsize is converted to bytes and stored at F.RSIZ in the FDB. 
The associated variable address is stored at D.AVAD, and DV.AI4 
is set if the associated variable is IntegerM. DV.DFD and 
DV.UFP are set. If DV.DFD was previously set, an error occurs. 
If the number of records or record size is negative, an error 
occurs. 

FIND — FIND$ 

The FIND statement is contained in the same module as that of the 
DEFINEFILE statement. The argument mask for $INITIO is set to 
FL.REC!FL.RD and $INITIO is called. The associated variable, if 
present, is set to the record number. No FCS-11 call is 
required. 


6.7 I/O-RELATED SUBROUTINES 

This section describes the operation of three I/O—related subroutines. 
The subroutines are described in detail in the PDP-11 FORTRAN—77 
User's Guide. 
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ASSIGN 


The unit number is placed in R2 and $GETFILE is called to get the 
LUB address. The file specification string address is placed in 
Rl. If no string length is present, it is computed by scanninq 
for a zero-byte. $FNBST is called to parse the file 
specification and set up the file name block in the FDB. 

CLOSE 


The unit number argument is moved to R2 and the OTS routine 
$CLOSE is called to close the file. 

FDBSET 


The unit number is placed in R2 and $GETFILE is called to get the 
LUB address. The first character of the access mode string is 
checked against the list, and the corresponding file access is 
stored at F.FACC in the FDB. The argument processing is 
summarized in Table 6-2. 


Table 6-2: FDBSET Argument Summary 


Call FDBSET Arguments 


FDB Setting 

Argument 1 

= 

n 

Set 

n in F.LUN 

Argument 2 

= 

'READONLY' 

Set 

FO.RD in F.FACC 


= 

'NEW' 

Set 

FO.WRT in F.FACC 


= 

'OLD' 

Set 

FO.UPD in F.FACC 


= 

'APPEND' 

Set 

FO.APD in F.FACC 



'UNKNOWN' 

Set FO.UPD in F.FACC; if no such 
file, then set FO.WRT in F.FACC. 

Argument 3 

= 

'SHARE' 

Set 

FA.SHR in F.FACC 

Argument 4 

= 

n 

Set 

n in F.MBCT 

Argument 5 

= 

n 

Set 

n in F.CNTG 

Argument 6 

= 

n 

Set 

n in F.ALOC 


Note: 

n is an integer expression. 
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This chapter discusses the RMS-ll-specific portions of the OTS. In 
particular, it describes the explicit RMS—11 operations used to 
implement FORTRAN I/O operations. 


7.1 RMS-11 I/O CONTROL BLOCKS 

RMS-11 uses two primary and several secondary control blocks to 
control I/O operations. The primary control block for file functions 
(open f close, and so forth) is the File Access Block (FAB). The 
primary control block for record functions (read, write, and so forth) 
is the Record Access Block (RAB). RMS-11 uses auxiliary control 
blocks for file name parsing (NAM block) and indexed file key 
specification (XAB blocks). 

The FORTRAN I/O system uses a single Logical Unit Control Block (LUB) 
to control I/O for each logical unit. The LUB contains FORTRAN 
control information, a RAB, and a file-name-string save area whose 
size is specified by the impure area offset W.FNML. The RMS FAB, NAM, 
and XAB control blocks are allocated and deallocated as needed. 

Indexed file key specifications are processed by the OPEN statement 
and are allocated as a single block containing n key-definition XAB 
control blocks. Each XAB has two extra words that contain position 
and size values used for consistency checks for an existing file. The 
file open processor $OPEN$ uses an RMS NAM control block to obtain the 
expanded file name string that is used for error reporting and file 
deletion. 

For more information about RMS-11 control blocks, see Section 4.2 and 
Appendix B. 


7.1.1 Dynamic Storage Allocation for Control Blocks 

All OTS and RMS control blocks and I/O buffers are dynamically 
allocated and deallocated from a central storage pool. The size of 
the pool is determined by the Task Builder option EXTTSK or the /INC 
option of the INSTALL or RUN commands. 

The storage is managed by two OTS procedures: RQMEM$, to allocate 
storage; and RLMEM$, to deallocate storage. RMS obtains storage from 
the OTS by using the option $SETGSA, and the storage allocation 
algorithm uses the operating system procedure $RQLCB. The OTS storage 
pool listhead address is contained at offset W.DEVL. Best-fit 
allocation is used. 
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The three storage management procedures are: 

• RQMEM$ (allocate storage) 

On input — RO contains the size of the request. 

On output — RO contains the address of a successful 
allocation. A C-bit error flag is 

returned. All other registers are 

preserved. 

• RLMEM$ (deallocate storage) 

On input — RO contains the address of the storage to 
deallocate. 

R1 contains the size of the storage. 

On output RO and R1 are undefined; all other registers 
are preserved. 

• RMSQL$ (RMS-called GSA (get-space-available) routine to 

request and release storage) 

On input — RO contains the address of an RMS pool 

(ignored) . 

R1 contains the size of the block to allocate 
or deallocate. 

R2 contains 0 for allocation request; address 
of the block if release request. 

On output — RO contains the address of a successful 

request. A C-bit error flag is returned if 
unsuccessful. 

RMSQL$ calls either RQMEM$ or RLMEM$ to process the request 
or release. 


7.2 OPEN PROCESSING 

Default file open processing and OPEN statement processing merge into 
a single common routine, $OPEN$ (see Section 4.2.3), for a file open. 


7.2.1 OPEN Statement Processing 

Table 7-1 shows the OPEN statement keywords, the possible values of 
those keywords, and the RMS FAB and RAB settings associated with those 
values. 
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Table 7-1: FAB/RAB Settings for OPEN Statement 


Keyword Name Value FAB/RAB Setting 


ACCESS 'DIRECT' 

'SEQUENTIAL' 

'APPEND' RB$EOF in 0$R0P in RAB 


ASSOCIATEVARIABLE V 


BLANK 'NULL' 

'ZERO' 


BLOCKSIZE n 


Set n in 0$BLS in FAB; 
set (max (n,RECORDSIZE) 
+511/512) in 0$BKS in FAB 
and 0$MBC in RAB 


BUFFERCOUNT n 


CARRIAGECONTROL 'FORTRAN' 

•LIST' 

'NONE' 


DISPOSE 'SAVE' 

•DELETE' 

'PRINT' 


Set n in 0$MBF in RAB 


Set FB$FTN in 0$RAT in FAB 
Set FB$CR in 0$RAT in FAB 


Use $CLOSE at file close 
Use $ERASE at file close 
Use $CLOSE at file close 


ERR 


s 


EXTENDSIZE n 


Set IABS(n) in 0$DEQ in 
FAB 


FILE or NAME f 


Call $FWBST to initialize 
0$FNA and 0$FNS in FAB 


FORM 


'FORMATTED' - . 

'UNFORMATTED' If positive, set FB$CTG in 

0$F0P in FAB; 


INITIALSIZE n 


Set IABS(n) in 0$ALQ in 
FAB. 


KEY 


Set nl in O$POS0 in XAB; 
Set n2-nl+l in O$SIZ0 in 
XAB; Set XB$STG in 0$DTP 
in XAB; Set XB$CHG!XB$DUP 
in 0$FLG in XAB if not 
primary key. 

(continued on next page) 
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Table 7-1 (Cont.): FAB/RAB Settings for OPEN Statement 


Keyword Name 

Value 

FAB/RAB Setting 

KEYCNT 

n 

Allocate n XABs and set 
address in 0$XAB in FAB 

Keyword Name 

Value 

FAB/RAB Setting 

MAXREC 

n 

- (Depends on device type) 

NOSPANBLOCKS 

- 

Set FB$BLK in 0$RAT in FAB 

ORGANIZATION 

'SEQUENTIAL' 

'RELATIVE' 

'INDEXED' 

Set FB$SEQ in 0$0RG in FAB 
Set FB$REL in 0$0RG in FAB 
Set FB$IDX in 0$0RG in FAB 

READONLY 

- 

Set FB$GET in 0$FAC in FAB 

RECORDSIZE or RECL 

n 

Set n in 0$MRS in FAB if 
needed 

SHARED 

- 

Set FB$WRI in 0$SHR in FAB 

STATUS or TYPE 

'OLD' 

'NEW' 

'SCRATCH' 

' UNKNOWN' 

Use $OPEN 

Use $CREATE 

Use $CREATE, set FB$TMD in 
0$F0P in FAB 

Try $OPEN. If no such 
file, then $CREATE 

UNIT 

n 

Set n in 0$LCH in FAB 

RECORDTYPE 

'FIXED' 

'VARIABLE' 

'SEGMENTED' 

Set FB$FIX in 0$RFM in FAB 
Set FB$VAR in D$RFM in FAB 
Set FB$VAR in 0$RPM in FAB 

USEROPEN 

P 

- 


Notes: 


f is an array, array element, variable, or character constant, 
n is an integer expression, 
s is an executable statement label, 
v is an integer variable name, 
p is an external procedure name. 
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o 



In basic OPEN statement processing, an argument list is searched and 
each keyword is located in a prescribed order. All information 
required by a given keyword is available when that keyword is 
processed. An appropriate default is used for keywords not in the 
list. If any errors occur during the search, the OPEN is not 
attempted, the ERR= transfer is taken, and the LUB is released. 

The processing for each keyword is described below. 

• ACCESS — The default access is 'SEQUENTIAL'. The FORTRAN LUB 
fields are set as follows: 

SEQUENTIAL — DV.SEQ 

DIRECT — DV.DIR 

APPEND — DV.SEQ and DV.APD 

KEYED — DV.KEY 

If DV.RDO and DV.APD are set, an error occurs. 

• ASSOCIATEVARIABLE — The variable address is stored at D.AVAD. 
If the variable is type INTEGER*4, DV.AI4 is set. 

• BLANK — 'NULL' sets DV.BN. Note that if the /F77 switch is 
set and no BLANK= is specified, the compiler passes a 
BLANK='NULL' parameter. 

• BLOCKSIZE — The value specified sets the following values: 

- The physical blocksize for sequential tape files. 

The multi-block count for sequential disk files. 

- The bucketsize for relative and indexed files. 

The values set are as follows for a BLOCKSIZE value of n (n 
must be positive and less than 32767): 

- Set n in 0$BLS in the FAB for magtape. 

- Set (511+MAX(n,RECORDSIZE))/512 in 0$BKS in the FAB for 
bucketsize and in 0$MBC in the RAB for multiblock count. 

• BUFFERCOUNT — The value specified is stored at 0$MBF in the 
RAB. If the value is negative or greater than 127, an error 
occurs. 

• CARRIAGECONTROL — If specified, DV.CC is set. 'FORTRAN' sets 
FB$FIN in 0$RAT and 'LIST' sets FB$CR in 0$RAT in the FAB. If 
DV.CC is not set and DV.FMP is specified, FD.FTN is the 
default. 

• DISPOSE — 'SAVE' sets DV.SAV; 'PRINT' sets DV.SPL; and 
'DELETE' sets DV.DEL. If DV.RDO is set, and DV.DEL or DV.SPL 
is specified, an error occurs. If a DISPOSE value is not 
specified and DV.SCR is set, 'DELETE' is the default; 
otherwise, 'SAVE' is the default. 

• ERR — The ERR= transfer address is obtained and the stack 
adjustment value is saved in the work area at offset COUNT. 
The transfer address, if present, is stored at offset ERREX; 
if it is not present, ERREX is cleared. 

• EXTENDSIZE — The absolute value specified is stored at 0$DEQ 
in the FAB. If the value is greater than 32767 or less than 
-32767, an error occurs. 
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• FILE or NAME — if specified, $FNBST is called to initialize 
the file name specification in the FAB. $FNBST returns an 
error if the string is incorrect. 

• FORM — 'FORMATTED' sets DV.FMP, 'UNFORMATTED' sets DV.UFP. 
If not specified and DV.DIR or DV.KEY is set, then DV.UFP is 
the default; otherwise, DV.FMP is the default. 

• INITIALSIZE The absolute value specified is stored at 0$ALQ 
in the FAB. if the value was positive, FB$CTG is set in 0$F0P 
in the FAB to indicate contiguous allocation. 

• KEY — Each key entry is processed as follows: 


nl is set in 0$POSO of the XAB and X.POS in 
portion of the XAB. 

the 

FORTRAN 

n2-nl+l is set in 0$SIZO of the XAB and X. 
FORTRAN portion of the XAB. 

SIZ 

in the 

An error occurs if nl is greater than 32767 or 
is greater than 255. 

if 

n2-nl+l 


• KEYCOUNT — n XABs are allocated as a single control block. 
The XABs are linked together, and the XABBLK address is stored 
at 0$XAB in the FAB and F.FXAB in the FORTRAN FABBLK. The 
XABs are initialized with XB$STG as the data type and XB$CHG 
and XB$DUP as options for all but the primary key. An error 
occurs if n is greater than 255 or negative. 

• MAXREC The value specified is stored at D.RCNM and D.RCN2. 
If the value is negative, an error occurs. 

• NOSPANBLOCKS — If specified, FB$BLK is set in 0$RAT in the 
FAB. 

• ORGANIZATION --- The default organization is 'SEQUENTIAL'. The 
FAB organization field is initialized, the LUB organization 
field is initialized, and the file access field, 0$FAC in the 
FAB, is initialized as follows: 

If DV.RDO is set, then FB$GET is set; otherwise: 

SEQUENTIAL — FB$GET!FB$PUT!FB$TRN 
RELATIVE — FB$GET!FB$PUTiFB$UPD J FB$DEL 

INDEXED — FB$GET!FB$PUT!FB$UPD!FB$DEL 

• READONLY — If present, DV.RDO is set. 

• RECORDSIZE or RECL — The value is stored at D.RSIZ. If the 
value is negative or larger than the user record buffer size 
(MAXBUF value), an error occurs. If DV.UFP (unformatted) is 
specified, the value is converted to bytes from storage units 
(four bytes per storage unit). If the value given does not 
equal the value for an existing file, an error occurs. 

• SHARED — If specified, FB$WRI is set in 0$SHR in the FAB. 
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• STATUS or TYPE — If not present, the default is 'NEW'. Note, 
however, that if the /F77 switch is set and no STATUS = 
parameter is specified in the source code, the compiler passes 
a STATUS = 'UNKNOWN' parameter. 'NEW' sets DV.NEW, 'OLD' sets 
DV.OLD, 'SCRATCH' sets DV.SCR, and 'UNKNOWN' sets DV.UNK. If 
DV.RDO is set and DV.SCR, DV.NEW, or DV.UNK is specified, an 
error occurs. If DV.APD is set and DV.SCR or DV.NEW is 
specified, an error occurs. 

• UNIT — The unit number is obtained and $FCHNL is called to 

obtain the LUB pointer. Possible fatal errors include: no 

unit number, invalid unit number, or unit already open. A FAB 
is allocated and its address is stored in D.PFAB. 

• USEROPEN — The address of the procedure is saved at F.UOPN in 
the FORTRAN portion of the FAB. 

After all keywords are processed, $OPEN$ is called to perform the 
actual file open. If successful, then the key specifications, if 

present, are checked for consistency. The FAB and XAB control blocks 

are released. 


7.2.2 Default OPEN Processing 

Default OPEN processing sets the following values and then calls 
$OPEN$: 

• Sets organization to SEQUENTIAL; sets DV.SEQ and FB$SEQ in 
0$0RG in the FAB 

• If DV.FACC is not set and the I/O statement is an input 
operation, sets DV.OLD; otherwise, sets DV.NEW 

Other fields and values may have been set by CALL ASSIGN, CALL FDBSET, 
or DEFINEFILE statements. 


7.2.3 $OPEN$ Routine 

The $OPEN$ routine opens the file and performs the various checks and 
computations common to OPEN statement processing (see Section 7.2.1) 
and default OPEN processing (see Section 7.2.2). 

Before file open, $OPEN$ performs the following operations: 

• If no user file specification is provided, uses the default 
file string for error reports 

• If append access is not specified, sets FB$NEF in 0$F0P in the 
FAB to inhibit positioning to end-of-file for magnetic tape 
files 

• Sets the RMS record format to FB$FIX if DV.FIX is set; 
otherwise, sets the record format to FB$VAR 
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• Computes a record length as follows: 

If a user—specified value is available, uses that value and 
moves it to. 0$MRS in the FAB; otherwise, uses 133 for 
formatted files, 128 for unformatted files with 
fixed-length records, and 126 for unformatted files with 
variable or segmented records; if DV.FIX or DV.REL is set, 
sets record length in 0$MRS in the FAB 

• If DV.CC is not specified, sets FB$FTN in 0$RAT in the FAB if 
formatted 

• Saves the organization type for consistency checks 

• Sets RB$LOC and RB$UIF in 0$R0P in the RAB to enable locate 

mode I/O and to permit WRITE statements to update records in 
relative files 

• Sets 0$UBF and 0$USZ in the RAB to reflect the user record 

buffer as specified by impure area offsets W.BFAD and W.BLEN 

• Creates an RMS NAM block to obtain the expanded file name 
string for error reports and file deletion 

If impure area offset W.UOPN is nonzero, $OPEN$ calls the user's 

routine to perform the RMS OPEN and CONNECT. If F.UOPN is not set, 
$OPEN$ calls $CREATE, if DV.NEW is set, or $OPEN$ if DV.NEW is not 
set. If DV.UNK is set and $OPEN$ fails with error ER$FNF, $CREATE is 
tried with DV.NEW set. 

After the $CREATE or $OPEN routine is executed, the following 

operations are performed: 

• The expanded file name string from the NAM block is copied to 
the LUB name string save area and the NAM block is deleted. 

• DV.OPN is set to indicate that the file is open. 

• The file organization is checked for consistency. 

• The record format is checked for consistency; if the 

user-specified record type does not match the file's record 
format, an error occurs. 

• The record length is checked for consistency as follows: 

If the user-specified length does not match the file size, 
an error occurs. If the default length is used, the value 

is set to the maximum of the file and default values. 

• The RMS $CONNECT operation is performed. 

If any errors occur, either reported by RMS or as a result of the 
consistency checks, the file is closed. If DV.NEW is set, the file is 
deleted as well. 
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7.2.4 USEROPEN Interface Specification 

The USEROPEN parameter of the OPEN statement allows you to access 
special RMS processing options not explicitly available in the FORTRAN 
language. The value of the USEROPEN parameter is the name of a 
user-written MACRO-11 routine that the OTS calls to open a file. To 
use this facility, you must do the following: 

• Using the MACRO-11 language, write a routine that opens the 
file. 

• In your FORTRAN program, include the statement 

EXTERNAL filename 

where "filename" is the name of the MACRO-11 routine you wrote 
to open the file. 

• In the OPEN statement in your FORTRAN program, include the 
keyword parameter USEROPEN=filename, where, again, "filename" 
is the name of your MACRO-11 routine. 

Although the MACRO-11 routine is called by the OTS (not your FORTRAN 
program), you should write it as if it were being called by a FORTRAN 
program. You must report the status of the open operation in RO. The 
OTS invokes the routine as a standard FORTRAN function of two 
arguments using the standard FORTRAN calling convention: 

ISTS= userprocedure (FAB,RAB) 

FAB 

The address of the RMS FAB for the logical unit. 

RAB 

The address of the RMS RAB for the logical unit. 

ISTS 

The error status to be returned. This value is expected to be 
the RMS completion status (STS value) and follows the RMS 
conventions (positive numbers indicate success and negative 
numbers indicate failure.) Note that the status is returned only 
to the OTS, not to the FORTRAN program. 

The following limits and constraints are imposed on the user 
procedure: 

• All FORTRAN processing is completed prior to the call. All 
nonzero fields containing addresses must be preserved so that 
postprocessing will operate correctly and storage for control 
blocks and scratch areas can be returned. 

• If additional XABs are used, they must be included in the XAB 

list at the front. XAB is the address of the RMS key access 

block for the logical unit. 

• All control blocks allocated by the procedure must be 

deallocated as well. Only control blocks and storage 

allocated by the OTS are deallocated by the OTS. 
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• The FAB address specified is not valid after the file open is 
completed. The RAB address specified is valid until the 
logical unit is closed. Care must be taken to ensure that an 
invalid FAB address is not saved for later use. 

• The user procedure must perform both the $CREATE/$OPEN 
function and the $CONNECT function. 

The following sample FORTRAN program and user-open procedure specify 
that bucket fill numbers are to be used when records are inserted. 

EXTERNAL USROPN 

OPEN (UNIT=1, ORGANIZATIONSINDEXED', ACCESS='KEYED', 

1 USEROPEN=USROPN) 


END 


USROPN:: 


1 $: 


MOV 2(R5),R2 

MOV 4(R5),R1 

$OPEN R2 

MOV O$STS(R2),R0 

BLE 1$ 

BIS #RB$LOA, 0$R0P(R1) 

$CONNECT R1 
MOV 0$STS(R1),R0 

RETURN 


;Get FAB pointer 

;Get RAB pointer 

;Open the file 

;Get error status 

;Quit on error 

;Use bucket fill numbers 

/Connect the RAB 

;Get error status 

/Return with status in RO 


7.2.5 File Open Utility Routines 

The following procedures are used internally as part of file open 
processing: 

FABRQ$ 

Allocates and initializes a FORTRAN FAB block. The address of 
the FAB is set in D.PFAB in the LUB and in 0$FAB in the RAB. The 
string FOROnn.DAT is set up as the default file name string by 
initializing 0$DNS and 0$DNA in the FAB. 

This procedure is called with the LUB pointer in RO. It returns 
with the FAB pointer in R1 and all other registers preserved. A 
C-bit error is returned if no storage is available. 

FABRL$ 

Deallocates a FAB. In addition, deallocates the XAB block 
connected to the FAB through offset F.PXAB. LUB offset D.PFAB is 
set to 0. This routine is called with the LUB pointer in RO. 
All registers are preserved. If no FAB is currently allocated, 
this routine has no effect. 

$FNBST 

Initializes the user file name specification for the LUB at 
offset FILPTR. The string is copied to the name string area of 
the LUB. Scanning ceases when the user count is exhausted or an 
ASCII null byte is scanned. The string is converted to 
uppercase, and space characters are removed. 
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On input, this routine has the following register assignments: 

• R1 — address of file name string 

• R2 — length of string or 0 

• R3 — impure area pointer 

On output, RO, Rl, and R2 are undefined; R3, R4, and R5 are 
preserved. A C-bit error is returned if the string does not fit 
in the name string save area, or if the length of the string is 
zero. 


7.3 FILE CLOSE PROCESSING 

File close processing is performed by the routine $CLOSE. 

The following functions are performed: 

• $DISCONNECT is executed if 0$ISI in the RAB is nonzero. 

• $CLOSE is executed. 

• If DV.DEL is set, $ERASE is executed. The file name 
specification is taken from the name string save area. 

• If DV.SPL is set, no operation is performed. 

The CLOSE statement is compiled using an encoded argument list similar 
to that for the OPEN statement; only the UNIT, ERR, and DISPOSE 
keywords are allowed. Processing is similar to OPEN: the argument 

list is searched for each allowed keyword and appropriate actions are 
taken. If any errors are encountered, the CLOSE is not attempted and 
the LUB is Not zeroed. 

The processing for each keyword is described below: 

• ERR — The ERR= transfer address is obtained and the stack 
adjustable value is saved at offset COUNT. The address is 
stored at offset ERREX, if present. 

• UNIT — The unit number is obtained and $FCHNL is called to 
obtain the LUB address. If no unit number is present or an 
invalid unit number is specified, a fatal error occurs. 

• DISPOSE — If not present, the existing disposition is used. 
•SAVE* sets DV.SAV, ' PRINT' sets DV.SPL, and 'DELETE' sets 
DV.DEL. If DV.SCR is set and DV.SPL or DV.SAV is specified, 
an error occurs. If DV.RDO is set, and DV.SPL or DV.DEL is 
specified, an error occurs. 


7.4 SEQUENTIAL I/O PROCESSING 

This section describes low—level OTS routines called by the 1/0 
statement processors and format processors to perform the actual calls 
to RMS for sequential record transfers, and to perform miscellaneous 
utility tasks. These routines are called with the work area address 
in R3. 
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7.4.1 Sequential Input ($GETS) 


The LUB pointer is obtained from offset FILPTR. The RMS $GET 

lf an ENDFILE record is read, the END= transfer is made- 
any other error transfers control to the ERR= address The record 
count at D.RCCT and D.RCC2 is incremented. * ThS reC ° rd 


7.4.2 Sequential Output ($PUTS) 

Ipfi-r LU ? pointer obtained from the offset FILPTR. The RMS operation 
e P r „ fluted to output the record. if RMS error ER$nIf ?s 

returned for a sequential organization file, the file is not 

be Written ^his^s be . truncated before the record can 

STRUNCATF k% by P erformin 9 RMS sequential $FIND and 

$TRUNCATE operations before reexecuting the $PUT operation. if the 

file contains fixed-length records, the record is padded with spaces 

ft D RCCT and Ire ^ ™ US f ° r unformatted files. The record count 

at D.RCCT and D.RCC2 is incremented. This routine is called with the 

R2 C arf imd£f? h f R1 ’^ return ' RO contains the LUB pointer; R1 and 
R2 are undefined; and R3, R4, and R5 are preserved. 


7.5 DIRECT ACCESS I/O PROCESSING 

This section describes low-level OTS routines called by the I/O 
p F oce f sors and format processors to perform the calls to 

umTUv ^ reC ^ aCCeSS ^ cord transfer ' a nd to perform miscellaneous 
if R3 t«rtin Th ®?® routines are called with the impure area address 
n R3. For sequential organization files, the RMS $SETRECN operation 

nn r eC . Uted t0 lnclu <le the RMS routine that converts a relative record 
number to an actual record file address. relative record 


7.5.1 Direct Input ($GETR) 

This routine proceeds as follows: 

• Obtains the LUB pointer from offset FILPTR 

• to verif y the record number and set the 
KSZ fields m the RAB 

• Executes the RMS $GET operation to read the record 

• Calls $ASVAR to update the associated variable 



KRF and 


7,5.2 Direct Output ($PUTR and $PUTRI) 

$PUTRI initializes a direct access write operation, 
follows: 

• Obtains the LUB pointer from offset FILPTR. 

• f CKRCN to verify the record number an< 
KRF and KSZ fields of the RAB. 


It proceeds as 


initialize the 
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• For sequential files, executes $UPDATE to update an existing 
record, or $PUT to write a new record. 

• Executes an RMS $FIND operation to position the file to the 
desired record. If RMS error ER$EOF is returned, the record 
does not exist within the current file storage allocation. In 
that case, the sequential $PUT operation automatically extends 
the file to the correct size to accommodate the record. 

$PUTR is called to write the record. It proceeds as follows: 

• Obtains the LUB pointer from FILPTR 

• If the file contains fixed-length records, pads the record 
(with spaces for formatted records and zero bytes for 
unformatted records) to the correct length 

• Calls $ASVAR to update the associate variable 


7.5.3 Direct Delete ($DELETE) 

The LUB pointer is obtained from offset FILPTR. The RMS $DELETE 
operation is executed to delete the record. 


7.5.4 Direct Access Record Number Checking ($CKRCN) 

$CKRCN verifies the current record number by comparing it with the 
maximum record number for the file. The current record number is 
stored at offsets W.RECL (low-order) and W.RECH (high-order). The 
maximum record number, if it exists, is at D.RCNM (low-order) and 
D.RCN2 (high-order) in the LUB. The record number, if valid, is 
returned in R1 (high-order) and R2 (low-order) . This routine is 
called with the LUB address in RO. Registers R4 and R5 are preserved. 


7.5.5 Associated Variable Update ($ASVAR) 

The current record number is obtained from offsets W.RECL and W.RECH, 
incremented by 1 and stored in the associate variable at the address 
in D.AVAD in the LUB. $ASVAR is called with the LUB pointer in RO. 
Registers R1 and R2 are undefined. 


7.6 KEYED I/O PROCESSING 

This section describes low-level OTS routines called by the I/O 
statement processors and format processors to perform the calls to RMS 
for keyed record transfer, and to perform miscellaneous utility tasks. 
These routines are called with the work area address in R3. 


7.6.1 Keyed Input ($GETK) 

The LUB pointer is obtained from offset FILPTR, and $CKKEY is called 
to verify the validity of the key expression and initialize the KRF 
and KSZ fields in the RAB. The RMS $GET operation is executed to read 
the record. On output, RO contains the LUB pointer; R1 is undefined. 
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7.6.2 Keyed Output ($PUTS) 

Keyed output is performed identically to sequential output. 


7.6.3 Keyed Rewrite ($UPDATE) 

The LUB pointer is obtained from offset FILPTR. If the file contains 
fixed-length records, the record is padded with spaces (for formatted 
files) or nulls (for unformatted files) . The RMS $UPDATE operation is 
executed to update the record. 


7.6.4 Keyed I/O Specifier Checking ($CKKEY) 

$CKKEY verifies the key specification in a keyed I/O statement and 
sets the proper control information in the LUB. It is called with the 
LUB pointer in RO and the impure area pointer in R3. Registers R1 and 
R2 are destroyed; all other registers are preserved. 


7.7 AUXILIARY I/O OPERATIONS 

This section identifies and explains the routines that perform the 
operations of the following FORTRAN statements; BACKSPACE, REWIND, 
ENDFILE, UNLOCK, DEFINEFILE, FIND, and DELETE. 

BACKSPACE — BKSP$ 

The unit number is obtained and $GETFILE is called to obtain the 

LUB address. If the file is closed or is a direct access file, 

the operation is ignored. If the file is opened for append, an 
error occurs. An RMS $REWIND operation is executed to position 
the file at its beginning. The record count is obtained from 
D.RCCT and D.RCC2 in the LUB. The record count is decremented by 
1, and then n—1 reads are performed. Note that the count is the 
logical record count; hence, multiple physical reads may be 
required for the unformatted segmented records. 

REWIND — REWI$ 

The unit number is obtained and $GETFILE is called to obtain the 

LUB address. . If the file is closed or is a direct access file, 

the operation is ignored. The append bit is cleared and the 
record count at D.RCCT and D.RCC2 is zeroed. An RMS $REWIND 
operation is executed to position the file at its beginning. 

ENDFILE — ENDF$ 

$INITIO is called with argument mask FL.IGN + FL.WRT to open the 
file, if necessary, and prepare for the output operation. If the 
file has relative or indexed organization, or contains 
fixed—length records, an error occurs. A 1—byte record 
containing octal 32 (CTRL/Z) is output to the file using $PUTS. 

UNLOCK — UNLK$ 


The unit number is obtained and $GETFILE is called to obtain the 
LUB address. If the file is closed, the operation is ignored. 
An RMS $FREE operation is executed to unlock the currently locked 
record bucket. If RMS error ER$RNL is returned, indicating that 
no record was locked, the error is ignored. 
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DEFINEFILE — DEFF$ 

The unit number is obtained and $GETFILE is called to obtain the 
LUB address. If the unit is open, an error occurs. A FAB is 
allocated if one is not already present. The number of records 
is stored at D.RCNM and D.RCN2 in the LUB. The record size is 
converted to bytes and stored at D.RSIZ in the LUB.. The 
associated variable address is stored at D.AVAD and DV.AI4 is set 
if the associated variable is INTEGER+4. DV.DIR and DV.UFP are 
set. If DV.DIR was previously set, or if the number of records 
or record size is negative, an error occurs. 

FIND — FIND$ 

$INITIO is called with argument mask FL.RD+FL.REC+FL.IGN to open 
the file, if necessary, and prepare for an input operation. 
$CKRCN is called to initialize the RAB KRF and KSZ fields and 
verify the validity of the record number. The RMS $FIND 
operation is executed to locate the record. $ASVAR is called to 
update the associated variable. 

DELETE — DLS$ and DLR$ 

$INITIO is called to prepare for the I/O operation. The argument 
mask is as follows: 

Sequential DELETE: FL.WRT+FL.DEL+FL.IGN 
Direct DELETE: FL.WRT+FL.DEL+FL.IGN+FL.REC 

For sequential DELETE, RMS $DELETE is executed to delete the 
record. 

For direct DELETE, $CKRCN is called to initialize the record 
number. If the current record number equals the requested record 
number, RMS $DELETE is executed to delete the current record 
without unlocking it. If the operation fails with the error NO 
CURRENT RECORD, then $GETR is called to locate and lock the 
record, and RMS $DELETE is called to delete the record. The 
$ASVAR routine is called to update the associated variable. 


7.8 I/O-RELATED SUBROUTINES 

This section describes the operations of three I/O-related 
subroutines. The subroutines are described in detail in the PDP-11 
FORTRAN-77 User's Guide . 

ASSIGN 

The unit number is placed in R2 and $GETFILE is called to get the 
LUB address. A FAB is allocated if one is not present. The file 
specification string address is placed in Rl. If no length is 
present, the string length is computed by scanning for a 
zero-byte. $FNBST is called to store the file name string in the 
LUB and set up the file name specification in the FAB. 


CLOSE 


The unit number argument is moved to R2 and the OTS routine 
$CLOSE is called to close the file. 
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FDBSET 



The unit number is placed in R2 and $GETFILE is called to get the 
LUB address. A FAB is allocated if one is not present. The 
first character of the access mode string is checked against the 
list, the corresponding file access fields are stored in the FAB 
and LUB, and DV.FACC is set in the LUB. 

Parameter Value 0$FAC in the FAB LUB Status 


'NEW' 


FB$GET!FB$PUT!FB$UPD!FB$TRN 
FB$GET!FB$PUT!FB$UPD!FB$TRN 
FB$GET 


DV.NEW 


'OLD' 


DV.OLD 


'READONLY' 


DV.OLD•DV.RDO 


'APPEND' 


FB$GET!FB$PUT!FB$UPD!FB$TRN 
FB$GET!FB$PUT!FB$UPD!FB$TRN 
FB$GET!FB$PUT!FB$UPD! FB$TRN 


DV.OLDiDV.APD 


'MODIFY' 


DV.OLD 


' UNKNOWN' 


DV.UNK 



If the third argument is 'SHARED', FB$WRI is set in the SHR field 
in the FAB. The fourth argument, if present, sets the MBF field 
in the RAB. The fifth argument, if present, sets the ALQO field 
in the FAB. The sixth argument, if present, sets the DEQ field 
in the FAB. The value is made positive. 
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CHAPTER 8 


FORMAT PROCESSING AND FORMAT CONVERSIONS 


This chapter discusses the internal form of format specifications, the 
format processing algorithm, and the format conversion routines. 


8.1 COMPILER FORMAT LANGUAGE 


Format specifications are compiled into a standard internal form. 
That form, which is illustrated in Figure 8-1, consists of a format 
code byte followed by one to five bytes of optional format code 
parameters. 


bit 


6 5 


FORMAT 

CODE 


VFE MASK 


REPEAT COUNT :N 


FIELD WIDTH:W 


DECIMAL PART:D 


EXPONENT FIELD.E 


address 

n 

n + 1 
n + 2 
n + 3 
n + 4 
n + 5 


ZK-230-81 


Figure 8-1: Format Code Form 


8.1.1 Format Code Byte 

The format code byte consists of a 6-bit format code, a 1-bit Variable 
Format Expression (VFE) flag, and a 1-bit repeat count flag. 

The flags indicate whether the VFE mask and repeat count bytes are 
included in the compiled code. If the VFE flag equals 0, no VFEs are 
present in the format. If the VFE flag equals 1, VFEs are present and 
the compiled code includes a VFE mask byte followed by VFE addresses. 
If the repeat count flag equals 0, the repeat count for the format 
specification is 1. If the repeat count flag equals 1, the repeat 
count for the specification is greater than 1 or is a VFE, and the 
repeat count byte is included in the compiled code. 

Table 8-1 lists the decimal value of each 6-bit format code, gives its 
source code form, and indicates whether it uses the field width and 
decimal part parameters. 
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Table 8-1: Compiled Format Codes 


Decimal 

Code 

Source 

Form 

Repeat 

Count 

W 

D 

E 

Notes 

0-3 

— 

— 

- 

- 

- 

Format error, only 0 and 2 
are used currently; 0 means 
format syntax error; 2 means 
format too large 

4 

( 

— 

- 

- 

- 

Format reversion point 

6 

n( 

n-1 

- 

- 

- 

Left paren. of repeat group 

8 

) 

— 

— 

— 

- 

Right paren. of repeat group 

10 

) 

— 

- 

- 

- 

End of format 

12 

/ 

— 

- 

- 

- 


14 

$ 

— 

- 

- 

- 


16 

; 

— 

- 

- 

- 


18 

SP 

— 

s 

- 

- 


20 

Q 

— 

- 

- 

- 


22 

Tn 

— 

n 

- 

- 


24 

nX 

n-1 




Previous PDP-11 FORTRAN 
IV-PLUS behavior for nX 
(Compiler does not generate 
this code for nX; OTS still 
includes routine for 

26 

nHcl...cn 
or 'cl..on' 

n-1 

' 

" 

" 

compatibility) n not VFE; 
n characters follow 

28 

nAw 

n-1 

w 

_ 

— 

Standard conversions 

30 

nLw 

n-1 

w 

- 

- 


32 

nOw 

n-1 

w 

- 

- 


34 

nlw 

n-1 

w 

- 

- 


36 

nFw .d 

n-1 

w 

d 

- 


38 

nEw.d 

n-1 

w 

d 

- 


40 

nGw.d 

n-1 

w 

d 

- 


42 

nDw.d 

n-1 

w 

d 

- 


44 

nA 

n-1 

_ 

_ 


Default formats 

46 

nL 

n-1 

— 

— 

— 


48 

nO 

n-1 

- 

- 

- 


50 

nl 

n-1 

- 

- 

- 


52 

nF 

n-1 

- 

- 

- 


54 

nE 

n-1 

- 

- 

- 


56 

nG 

n-1 

- 

- 

- 


58 

nD 

n-1 

- 

- 

- 


5 

S 

— 

— 

_ 


New format descriptors 

7 

SP 

— 

- 

- 

— 

9 

SS 

— 

- 

- 

- 


11 

BN 

— 

- 

- 

- 


13 

BZ 

— 

- 

- 

- 


15 

TLn 

— 

n 

- 

- 


17 

TRn or nX 

— 

n 

- 

- 


19 

nZw 

n-1 

w 

- 

- 


21 

nZ 

n-1 

- 

- 

- 

Default Z format 

23 

nEw.dEe 

n-1 

w 

d 

e 

E format descriptor with 
exponent component 

25 

nGw.dEe 

n-1 

w 

m 

- 

G with e component 

27 

nOw.m 

n-1 

w 

m 

- 

0, Z, I with m component 

29 

nZw.m 

n-1 

w 

m 

- 


31 

nlw.m 

n-1 

w 

m 

— 
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8.1.2 Format Code Parameters 

Up to five bytes of format code parameters may appear in the compiled 
code for a format specification. The parameters are: 

• VFE Mask Byte — indicates whether the other format code 
parameters are VFEs or compiled constants. Bits 7, 6, and 5 
are associated with the repeat count, field width, and decimal 
part parameters, respectively. A bit setting of 1 means that 
the associated parameter is a VFE; a 0 setting means that the 
associated parameter is a compiled constant. 

• Repeat Count Byte — contains the repeat count value when the 
repeat count is not 1. This value is 1 less then the source 
code value. It must be in the range 1 to 255. 

• Field Width Byte — contains the field width or tab position 
in the range 1 to 255, or the scale factor in the range -128 
to +127. 

• Decimal Part Byte — contains the decimal field width for the 
floating-point conversion codes, in the range 0 to 255; or 
contains the significant digit part for the I, 0, and Z 
formats in the form Iw.m, Ow.m, or Zw.m. 

• Exponent Field Width Byte — contains the optional exponent 
field width value, in the range 0 to 255. The default value 
is 2. 

When the repeat count, field width, or decimal part is a VFE, the VFE 
address begins on the next word boundary after the VFE mask byte. The 
VFE is compiled as an unparameterized arithmetic statement function of 
type INTEGER*2 and is called by the instruction JSR PC,XXX, with R5 
pointing to the program unit argument list. The format interpreter 
performs all range checking on the result. 


8.1.3 Hollerith Formats 

Quoted format strings (character constants) are compiled as Hollerith 
constants. The characters to be transmitted are included in the 
compiled code following the repeat count. The repeat count cannot be 
a VFE. 


8.1.4 Default Formats 


Most format code field descriptors have default values that are 
supplied if no numeric value is present. The defaults are determined 
from the format code and the data type of the corresponding list 
element, as follows: 


Format Code 

Data Type 

Default Values of W, W.D, or W.DE 

I 

1*2 

7 

I 

1*4 

12 

E,G 

R*4 

15.7 (E=2) 

E,G 

R*8 

25.16 (E=2) 

D,F 

R*4 

15.7 

D,F 

R*8 

25.16 

0,Z 

All 

W=MAX(7,MIN(255 (8*ELEM SIZE)/3+2)) 

L 

All 

2 

A 

All 

Number of bytes in the variable 

X 

— 

1 
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8«1«5 Format Compiled Code Example 

This section gives an example of the code resulting from the 
compilation of a FORMAT source statement. 


The FORTRAN 

statement: 


1 FORMAT(IX, 

F13.5, 'ABODE 1 

, <K>I10, 3 (2E15. 

is compiled 

into the 

following: 


.1 

: .BYTE 

21,1 

IX 


.BYTE 

44,15,5 

F13.5 


.BYTE 

232 

Hollerith code 


.BYTE 

4 

Repeat count 


.BYTE 

101,102,103,10 

,105 ; 'ABODE' 


.BYTE 

342 

I format code 


.BYTE 

200 

VFE mask 


.WORD 

L$VFE 

VFE address 


.BYTE 

12 

110 


.BYTE 

4 

Reversion point 


.BYTE 

206,2 

Left paren and 


.BYTE 

227,1 

E format code a 


.BYTE 

17,7,4 

E15.7E4 


.BYTE 

10 

Right paren 


.BYTE 

14 

/ code 


.BYTE 

12 

End-of-format 

L$VFE: 

MOV 

K, R0 



RTS 

PC 


8.2 FORMAT 

PROCESSING PSECTS 



The OTS uses the following program sections (PSECTs) for format and 
list-directed processing: 

• $$FIOC contains the pure code of the format processor 
($FIO) and the list-directed processors ($LSTI and $LSTO) 

• $$FIOD — contains pure data (constants and dispatch tables) 

IICO/^ Kii ^ r r* m T □ At nm/\ 7 




used by $FIO, $LSTI, and $LSTO 

$$FIOI contains the code for integer conversions 

$$FIOL contains the code for logical conversions 

$$FI0R contains the code for floating-point conversions 

$$FIOS — contains the list-directed input constant storaqe 

block ^ 


$$FIOZ — contains the code for 
conversions 


octal and hexadecimal 


$$FI02 contains the addresses of the conversion routine 
entry points 
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Each module stores its own entry point address in $$FI02. The 
processing routines pick up the addresses of the appropriate 
conversion routines as needed (if that address is 0, an error occurs) • 
The PSECTs have the GBL attribute so that the Task Builder can 
correctly build overlaid tasks. 

None of the conversion routines reference the work area or any other 
portion of the OTS. They preserve R5 and the FPP registers, and leave 
all other registers undefined. 


8.3 FORMAT AND LIST-DIRECTED PROCESSORS 

The format and list-directed processors — $FIO, $LSTI, and $LSTO 
operate as co-routines with the I/O transmission operators. They are 
called at the end of I/O initialization, and process formats and list 
items until called with offset VARAD equal to 0. 


8.3.1 Format Processor — $FIO 

$FIO processes through the format, calling an internal routine for 
each format code. It calls VFEs as encountered, with all context 
saved and R5 restored to the user code value. When $FIO encounters a 
format requiring a list item, it calls the appropriate conversion 
routines (except that 'A' format is handled within $FIO) until no 
elements remain in the list (offset VARAD = 0). For nested group 
repeat specifications, $FI0 uses a pushdown stack in the work area. 
Offset FSTKP points to the current position; offset FSTK is the base 
of the pushdown stack. 


8.3.2 List-Directed Input Processor — $LSTI 

$LSTI lexically scans the external record, delimits a field of input 
characters, determines the data type of the field, and calls the 
appropriate input conversion routine. It converts the resulting 
internal data value to the appropriate type and moves it to the list 
element. The currently active data value is stored at the address in 
PSECT $$FI0S pointed to by the work area offset W.PLIC. 

The parameters passed to the format conversion modules include the 
buffer pointer, the actual field width as determined by the delimiter 
scan, and, for floating-point conversions, a decimal part of 0 and 
scale factor of 0. 


8.3.3 List-Directed Output Processor — $LSTO 

$LSTO accepts the list element and determines a format based on the 
list element data type, as follows: 


Data Type 

Format 

BYTE 

15 

LOGICAL*2 

L2 

LOGICALM 

L2 
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Data Type 

INTEGER*2 

INTEGER*4 

REAL*4 

REAL*8 

COMPLEX*8 

CHARACTER*!! 

or 

Hollerith 


Format 

17 

112 

1PG15.7 

1PG25.16 

IX,'(•,1PG14.7,',1PG14.7,')' 
nAl where n is the string length. 


If the computed field length is longer than the number of remaining 
characters in the record, $LSTO writes the current record and begins a 
new record. Each item is contained in a single record except for 
character constants that are longer than a single record. $LSTO 
inserts a space at the front of each record for carriage control. The 
record length is the record size specified in the RECORDSIZE parameter 
of the OPEN statement. If no RECORDSIZE parameter is specified, the 
default is 81 bytes, which yields 80 print positions. 


8.4 RUN-TIME FORMAT COMPILER — FMTCV$ 


Format specifications stored in arrays are converted into the required 
form during execution. This is done by the following: 

1. Pushing the address of the array specification 

2. Executing JSR PC,FMTCV$ 

FMTCV$ does not delete the stack argument; it replaces its value with 
the address of the compiled format. 


Object time formats are compiled into a buffer in the OTS, whose 
length is controlled by the Task Builder option FMTBUF. The buffer's 
address is stored at offset W.OBFL and its high address+1 is stored at 
W.OBFH. Offset FMTAD points to the current entry in the output format 
buffer. 


Within the FMTCV$ processing routines: 

• R5 points to the source characters. 

• R0 contains the current source bytes. 

• R2 contains any numeric value being accumulated. 

• Offset NOARG indicates the number of expected arguments for 
the code. 

• Offset PARLVL specifies the parentheses depth encountered. 

• Offset NUMFLG indicates whether a number is available in R2. 

The module examines each source character. If the character is a 
digit, a number is accumulated; if it is a number or a special 
character, a dispatch is made to process the format code. 
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If the buffer space is exhausted, FMTCV$ stores the FMTBIG format code 
(2) in the first byte of the compiled format and returns an error. If 
a format syntax error is detected, FMTCV$ stores the FMTBAD format 
code (0) in the first byte and returns an error. 


8.5 INTEGER AND OCTAL CONVERSIONS 

For input, the routines called are OCI$ for octal conversions (F4P V3 
version) and ICI$ for integer conversions. The calling sequence is: 

1. Push the address of the input string. 

2. Push the number of input characters (high bit of this word 
indicates BN/BZ; 0=BZ and 1=BN). 

3. Call ICI$ (or OCI$). 

The routines return a 2-word result on the stack in INTEGERM format. 
The calling arguments are deleted. If an error occurs, the C-bit is 
set and the value returned is 0. The floating-point conversions call 
the routine at entry point $ECI to input the exponent field. 

For output, the routines called are OCO$ for octal conversions 
(previous PDP-11 FORTRAN IV-PLUS version), and ICO$ for integer 
conversions. The calling sequence is: 

1. Push the address of the output field. 

2. Push the width of the output field (high bit of this word 

indicates SP/SS; 0=SS and 1=SP). 

3. Push the INTEGERM value. 

4. Call ICO$ (or OCO$). 

The return is made with the calling arguments deleted. If an error 
occurs, the C-bit is set and the output field is filled with 
asterisks. 

Also for output, IM0$ is called for integer conversions of the form 
Iw.m. The calling sequence is: 

1. Push the address of the output field. 

2. Push the width of the output field (high bit of this word 

indicates SP/SS; 0=SS and 1=SP). 

3. Push the INTEGERM value. 

4. Push the least number of digits to be output. 

5. Call IMO$• 


NOTE 

The OTS no longer uses the entry points 
OCI$ and OCO$ for octal conversions. 
They are included for compatibility 
purposes. 
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8.6 HEXADECIMAL AND NEW OCTAL CONVERSIONS 

The hexadecimal and new octal conversions apply to all data types in 
PDP-11 FORTRAN-77. The calling sequence uses descriptors instead of 
values on the stack. For input, the routines called are ZCI$ for 
hexadecimal conversions and NOCI$ for octal conversions. The calling 
sequence is: 

1. Push the address of the input string. 

2. Push the number of input characters (high bit of this word 

indicates BN/BZ; 0=BZ and 1=BN). 

3. Push the variable address. 

4. Push the variable length. 

5. Call ZCI$ or NOCI$. 

The return is made with the arguments deleted and the value loaded 
into the variable whose address was given. If an error occurs, the 
C-bit is set and the value returned is 0. 

For output, the routines called are ZMO$ for hexadecimal conversions 
and OMO$ for octal conversions. The calling sequence is: 

1. Push the address of the output field. 

2. Push the width of the output field (high bit of this word 

indicates SP/SS; 0=SS and 1=SP). 

3. Push the least number of digits to be output (for Zw.m and 
Ow.m). 

4. Push the variable address. 

5. Push the variable length. 

6. Call ZM0$ or 0M0$. 

The return is made with the arguments deleted. If an error occurs, 
the C-bit is set and the output field is filled with asterisks. 


8.7 LOGICAL CONVERSIONS 

The input logical conversion routine, LCI$, is called as follows: 

1. Push the address of the input field. 

2. Push the width of the input field. 

3. Call LCI$• 

LCI$ returns a 1-word result on the stack: 0 for .FALSE and -1 for 
.TRUE. The calling arguments are deleted. If an error occurs, the 
C-bit is set and .FALSE is returned. 
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The output logical conversion routine, LCO$, 

1. Push the address of the output field 

2. Push the width of the output field. 

3. Push the 1-word logical value. 

4. Call LCO$. 


is 


called as follows: 


The return is made with the calling arguments deleted and the C-bit 
cleared. 


8.8 REAL, DOUBLE-PRECISION, AND COMPLEX CONVERSIONS 

The input conversion routine, RCI$, is called for all formats (D, E, 
F, and G format codes) as follows: 

1. Push the address of the input field. 

2. Push the width of the input field (high bit of this word 
indicates BN/BZ; 0=BZ and 1=BN). 

3. Push the decimal part width. 

4. Push the scale factor (P format). 

5. Call RCI$. 

RCI$ returns a 4-word, double-precision result on the stack. The 
calling arguments are deleted. If an error occurs, the C-bit is set 
and the value returned is 0.0. If an exponent subfield is 
encountered, $ECT is called in the integer input conversion routine to 
handle the conversion. 

The output conversion routines, DCO$, ECO$, FCO$, and GCO$, are called 
as follows: 

1. Push the address of the output field. 

2. Push the width of the output field (high bit of this word 
indicates SP/SS; 0=SS and 1=SP). 

3. Push the decimal part width (high byte of this word contains 
the value of e for forms Ew.dEe or Gw.dEe) . 

4. Push the scale factor. 

5. Push the 4-word, double-precision value. 

6. Call DCO$, ECO$, FCO$, or GCO$. 

The return is made with the calling arguments deleted. If an error 
occurs, the C-bit is set and the output field is filled with 
asterisks. 

The real, double-precision, and complex conversions are done in the 
software; the FPP unit is not used. 

The optional module provided, F4PCVF, is an FPP implementation that is 
significantly faster but slightly less accurate. The entire FPP state 
is conserved. 
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8.9 FORMAT CONVERSION ERROR PROCESSING 

When a format conversion error occurs, both methods of error 
continuation, ERR=transfer and return (see Section 9.2.2.1), are 
generally supported. The actions taken for these errors are as 
follows: 


Error 59 — 

list-directed I/O syntax error 

The result value is null (no change). 

Error 61 — 

format/variable type mismatch error 

The value is used as is, without conversion. 

Error 63 — 

output conversion error 

The field is filled with asterisks. 

Error 64 — 

input conversion error 

The result value is 0, 0. or 0.D0. 

Error 68 — 

variable format expression value error 

A value of 1 is used for repeat count or field width; 
a value of 0 is used for the decimal part or scale 
factor. 


For more information on format conversion error processing, see the 
PDP-11 FORTRAN-77 User's Guide. 
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CHAPTER 9 


ERROR PROCESSING AND EXECUTION CONTROL 


This chapter discusses execution control processing, detecting and 
processing run-time errors, and generating error messages. 


9.1 TASK INITIALIZATION 

The first instruction of every FORTRAN main program calls the OTS 
initialization routine, as follows: 

JSR PC,OTI$ 

The following operations are performed: 

• An SVTK$S executive directive initializes the synchronous trap 
vector. 

• $STFPP is called to initialize the FP-11 floating-point 
processor or the KEF11A floating-point microcode option 
(unless F4PEIS is used). 

• The error control byte table is copied into impure storage. 

• The number of available logical units 'is computed as the 
minimum of the size of the device table program section 
(PSECT) and the value of impure area offset W.LUNS. The 
device table PSECT is set to zero. 

• The user record buffer PSECT size is computed and stored at 
impure area offset W.BLEN. 

• Miscellaneous impure area offsets are set to zero. 

• The task error count limit is set to 15. 

• $VINIT is called to initialize the virtual array mapping 
window if virtual arrays are used. 

• If the FCS-11 files system is being used, FINIT$ is executed 
to initialize FCS. 

• If the RMS-11 file system is being used: 

The free storage pool size is determined using the task 
.LIMIT directive, and the GPRT$S and GTSK$S system 
directives and free storage list head are initialized. 

- An RMS-11 $SETGSA operation is executed to initialize the 
RMS GSA storage allocation procedure. 
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9.2 EXECUTION-TIME ERRORS 


The following sections describe the types of errors reported 
OTS. 


by 


the 



9.2.1 Trap Instruction Processing 

The OTS uses TRAP instructions to report errors. FORTRAN error 
numbers range from 1 through 120 (decimal). Not all numbers have a 
definition; some are reserved for future error definitions. The 
error number is in the low byte of the TRAP instruction. Internally, 
it is 128 larger than the reported number; thus, error number 21 is 
internally represented as 149. The first 128 TRAP values are 
available to users (see Section 9.4). 


When a TRAP instruction is executed, the operating system transfers 
control to the TRAP instruction processor, $SST6, which checks the 
range of the error number. If that is valid, $SST6 calls $ERRAA to do 
the error analysis and reporting. If the error number is invalid, 
$S{3T6 returns an error number 1. 


$ERRAA•s processing is based on the contents of an error control byte 
in impure storage. The error control byte is bit encoded. The bit 
descriptions are: 


EC.CON 
EC.CNT 
EC.UER 
EC.LOG 
EC.INU 
EC.RTS 
EC.ERE 


Continue. 

Count. 

Use ERR= exit if 1; return if 
Log. 

This number defined for use. 
Return continuation permitted 
ERR= continuation permitted. 


0 . 



The sign bit of the error control byte has no name. It is tested and 
cleared by the ERRTST system subroutine. When it is clear, an error 
has not occurred; when it is set, an error has occurred. 


The standard bit combinations are: 

Fatal 

Errors: EC.FAT = EC.INU + EC.LOG 

I/O 

Errors: EC.10 = EC.INU + EC.CON + EC.CNT + EC.LOG + EC.UER + 

EC.ERE 


Other 
Errors: 


EC.NRM = EC.INU + EC.CON + EC.CNT + EC.LOG + EC.RTS 
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9.2.2 Error Control Byte Processing 

$ERRAA obtains the error control byte from the OTS impure area. The 
sign bit is set. $ERRAA examines other bits in the error control byte 
and acts as follows: 

• If the continue bit is cleared, the error report includes the 
exit flag. 

• If the count bit is set and no ERR=address exists, offset 
W.ECNT is decremented. If W.ECNT is less than or equal to 
zero, the report includes the exit flag. 

• If the continue-type bit is set and no ERR= address exists, 
the error report includes the exit flag. 

• If the log bit is set, the error report includes the no-exit 
flag. If the task exits, the message is always logged. 

$ERRAA calls $ERRLG to log all terminal messages, both error reports, 
and the messages from STOP and PAUSE statements. 


9.2.2.1 Continuation Processing - Two types of continuation after an 
error are supported: 

• Transfer to an ERR= address. This type is used for most I/O 
errors. 

• Return to the source of the error. This type is generally 
used for errors other than I/O errors. 


9.2.2.2 W.IOEF Error Processing - For some I/O errors, it may be 
better if the ERR= transfer is initiated by the I/O routine itself, 
rather than by the error processor ($ERRAA). For example, when OPEN 
statement processing detects an error in a keyword, the transfer to 
the ERR= address is delayed until all of the statement's keywords have 
been examined. 

Work area offset W.IOEF is used to obtain this special error 
processing. The effects of W.IOEF's value are as follows: 

• When it is 0, default processing is enabled. 

• When it is negative, default processing is performed except 
that the ERR= transfer is not made; instead, control is 
returned to the source of the error and the ERR= transfer can 
be made from there. 

• When it is positive, the return type of continuation is always 
executed. 

W.IOEF is initially zero and is reset to zero before exiting from a 
routine that uses it. Regardless of the W.IOEF setting, if no ERR= 
address exists, the task will exit. 
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9.2.3 Floating-Point Processor Errors 

All Floating-Point Processor (FPP) errors are processed as 
Asynchronous System Traps (AST) in routine $FPERR. When 
divide-by-zero, overflow, or underflow occurs, zero is supplied as the 
result of the operation that caused the trap. The AST procedure log 
uses the TRAP instruction to issue the error report. 


9.2.4 Error Message Processing 

Error message construction and processing is performed by many small 
routines. Message processing begins with a call to $ERRLG, which 
controls the flow of message processing, calling the appropriate 
message utilities as required. $ERRLG produces a 5-line error log 
containing the following: 

• On line 1, the task name and error number. 

• On line 2, message text. 

• On line 3, the value of the program counter at the time of the 
error. This is found at offset W.PC. 

• On line 4, the error count exceeded message. This is based on 
the error limit count stored at offset W.ECNT. 

• On line 5, the I/O error data, which is based on the primary 
error field of the LUB (referenced by offset W.FERR), followed 
by the program unit traceback. 

The log does not include any line that is inappropriate or 
unavailable. On RSX-11M/M-PLUS and RSTS/E, messages are output by 
issuing QIOs to the user's terminal. 

For message construction, R3 points to the work area, R5 points to the 
current position in the message text being constructed, and offset 
W.ERLN points to the beginning of the error message buffer. 

Offset W.MOTY is zero if the message output task (MO) is being used, 
and nonzero if QIOs to the terminal are being performed. 

$ERRLG is also called to output messages from STOP and PAUSE 
statements. It uses the values of RO and R1 to determine the type of 
message being generated, as follows: 

• If R1 is 0, the message is associated with a STOP or PAUSE 
statement, and RO points to the message text block. 

• If R1 is not 0, the message is an error message, and RO is -1 
if the task is exiting and 0 if the task is continuing. 


9.2.4.1 Message Construction Utilities - The following routines build 
the error report text in the error text buffer. They operate the same 
way whether messages are output by the message output task (MO) or 
QIOs to the user's terminal. 
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Terminal QIO —— Perform a QIO of message to the user's terminal. 

Compute the message length; set MO LUN number 
(offset W.MO, global symbol .MOLUN) in the QIO 
DPB. Issue the QIO. Wait for the QIO to 
complete. 

$ATT — Initialize R5 to error message buffer and store a 

carriage-return/line-feed (CR/LF) as the first 
two characters. Set R5 into offset W.M0A1. 

$ERRNL — Start a new line. Store a CR/LF in buffer. 

$ERRZA -- Perform a GTSK$S directive to obtain the task 

name. Call $ATT and $R50AB to decode the 
Radix-50 task name. 

$BINAS — Convert a binary number to decimal ASCII. 

$FILL — Move ASCIZ text pointed to by R1 to error message 

buffer pointed to by R5. 

$R50AS , $R50AB - Convert Radix-50 value to ASCII by calling $R50. 


9.3 STOP AND PAUSE STATEMENT PROCESSING 

STOP and PAUSE statements are compiled to calls as follows: 

1. Push address of display (0 indicates no display). 

2. Call statement-specific entry: 

STOPS for STOP 
PAUS$ for PAUSE 

All context is saved. $ERRLG (see Section 9.2.4) is called to output 
the message. STOP then jumps to $EXIT; PAUSE issues a SPND$S 
directive and returns. 
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9.4 USER INTERFACING TO ERROR PROCESSING 

The first 128 (0 to 127) trap codes are available to users. TRAP 
instructions transfer control to the OTS error processor by means of a 
System Synchronous Trap Table located in the OTS impure work area. 
The first word of this table has the global symbol $SST. You can use 
coding similar to the following to intercept control: 


INITIALIZATION 


INIT: 


SST6: 


MOV $SST+14,SST6 ;Save OTS TRAP addr 

MOV #INTCEP,$SST+14 ;Put new addr in sst table 

• . . 

.WORD 0 


/ TRAP HANDLER 
INTCEP: CMP 

#128.* 

BHI 

JMP 

1$: 

1$ 

@SST6 

TST 

(SP) + 

RTI 


You can use similar 
traps. 

techniques 


;Low byte *2 of TRAP 
instruction from executive 
/Branch if user code 
/Goto ots 

/User trap processing code 

/Discard extra word 
/Trap number 
/Exit interrupt 

intercept the other synchronous 


9.5 USER INTERFACING TO TERMINAL MESSAGE OUTPUT 

The error-reporting message facility enables users to write text to 
their terminals without doing FORTRAN I/O. A message text block 
similar to that used for STOP and PAUSE statements is constructed as 
follows. R1 equals 0/ R0 points to a 2-word message block. The 
first word of the block contains the address of an ASCIZ string (ASCII 
string terminated by a zero byte)/ the second word is 0. The text is 
output by executing a JSR PC, $ERRLG instruction. 


Example: 


The following prints 'HELLO' on the user terminal: 
In FORTRAN: 

CALL MSG ('HELLO') 

END 

IN MACRO-11 


MSG: 


CLR - (SP) 

MOV 2 (R5) ,- (SP) 
MOV SP,R0 
CLR R1 

JSR PC,$ERRLG 
CMP (SP)+, (SP) + 
RTS PC 
.END 


2nd word of message block 
Address of ASCIZ text 
R0 points to message block 
Signal non-error type message 
Output the message 
Delete message block 
Return 


The user text is preceded by the task name. Only a single line can be 
output. 
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9.6 EXECUTION CONTROL SUBROUTINES 

The following subroutines are described in detail in the PDP-11 
FORTRAN-77 User's Guide: 

ERRESET — The error number specified by the user is extracted 
and checked for validity. The logical arguments are extracted 
and the appropriate bits in the error control byte are 
manipulated. If a limit count is provided, it is stored at 
offset W.ECNT. 

ERRSNS — This routine is called with zero to four integer 
arguments: 


CALL ERRSNS (NUM, FERR, FER1, UNIT) 


The information saved 
follows: 

from 

the latest error is returned 

offset 

W.ERNM 

into 

NUM 

offset 

W.FERR 

into 

FERR 

offset 

W.FER1 

into 

FER1 

offset 

W.ERUN 

into 

UNIT 

These offsets are then 

zeroed 

• 


ERRTST — The error number is retrieved and checked for validity. 
The sign bit of the error control byte is tested and cleared, and 
the result is returned in the second argument. 

EXIT — Performs a jump to $EXIT. 

USEREX — Stores the argument address at work area offset EXADDR 
for use during task termination. 
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CHAPTER 10 

OTHER COMPILED-CODE SUPPORT ROUTINES 


This chapter describes routines that support various arithmetic and 
housekeeping operations required by the compiled code. 


10.1 ARITHMETIC OPERATIONS 

All the routines follow a common naming convention in which: 

• The first two letters indicate the operation performed, as 
follows: 

AD — addition 

SB — subtraction 

ML — multiplication 

DV — division 

PW — exponentiation 

CM — comparison 

TS — test for zero 


NG — negation 

• The next letter (next two, in the case of exponentiation) 
indicates the data types of the arguments, as follows: 


I — Integer*2 
J — Integer*4 
R — real 

D — double Precision 
C — complex 
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• The last letter indicates how to access either the single 
argument of a 1-argument operation on the second (right hand) 
argument of a 2-argument operation. For 2-argument 
operations, the first (left hand) argument is always on the 
stack. The last letter can be one of the following: 

S — indicates the argument is at the top of the stack 

C indicates that the following in-line word is the 

address of the argument 

P — indicates that the following in-line word is the 

offset in the parameter list (pointed to by R5) which 
contains the address of the argument 

All of these routines are called using the R4 convention described in 
Chapter 2. In addition, they all delete their stack arguments, return 
their result on the stack, and preserve the contents of general 
register 5 (R5). 


10.1.1 Exponentiation 
The exponentiation routines 


are as follows: 
Data Type 


Routine 

Base 

Exponent 

Result 

PWIIx$ 

1*2 

1*2 

1*2 

PWIJx$ 

1*2 

1*4 

1*4 

PWJIx$ 

1*4 

1*2 

1*4 

PWJJx$ 

1*4 

1*4 

1*4 

PWRIx$ 

R*4 

1*2 

R*4 

PWRJx$ 

R*4 

1*4 

R*4 

PWDIx$ 

R*8 

1*2 

R*8 

PWDJx$ 

R*8 

1*4 

R*8 

RWRRx$ 

R*4 

R*4 

R*4 

PWRDx$ 

R*4 

R*8 

R*8 

PWDRx$ 

R*8 

R*4 

R*8 

PWDDx$ 

R*8 

R*8 

R*8 

PWCIx$ 

C*8 

1*2 

C*8 

PWCJx$ 

C*8 

1*4 

C*8 

PWCCx$ 

C*8 

C*8 

C*8 


x is S, C, or P 
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NOTE 

This table of routines shows only the 
entry points called by the compiled 
code; it is not a complete list of all 
the supported forms of exponentiation. 
For example, a base of complex and an 
exponent of Real*4 is supported by 
converting the Real*4 to a complex 
number and calling the entry point that 
supports a base and exponent of complex. 
For a complete list of the supported 
forms of exponentiation, see the PDP-11 
FORTRAN-77 User's Guide. 




10.1.2 Complex Arithmetic Operations 
The following entries are used; 


ADCx$ — 

complex 

addition 

SBCx$ — 

complex 

subtraction 

MLCx$ — 

complex 

multiplication 

DVCx $ — 

complex 

division 

TSCx$ — 

complex 

test for zero 

NGCx$ — 

complex 

negation 

CMCx$ — 

complex 

compare 

X is S, C, 

or P 



10.1.3 INTEGER*4 Arithmetic Operations 
The following entries are used; 

MLJx$ — Multiplication 

DVJ x$ — Division 

x is S, C, or P 


10.1.4 Stack Swap Operations SWPxy$ 

These routines are used in conjunction with the out—of—line arithmetic 
operation entries when the order of evaluation causes the two 
arguments of the operation to be on the stack in reverse order. Entry 
names are of the form; 

SWPlr$ 


o 
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1 

The number of words the left argument occupies: 1, 2, or 4 
r 

The number of words the right argument occupies: 1, 2, or 4. 
The two arguments are swapped on the stack. 


10.1.5 Character Operations 


These routines are called using the PC convention described in Chapter 
2 1 with the modification that a descriptor (length, address pair) is 
pushed on the stack for each argument. The two character operations 
are character assignment (entry point $CHASN) and character comparison 
(entry point $CHCMP). 

Character assignment is called as follows: 

1. Push the length of the destination (in bytes). 

2. Push the address of the first byte of the destination. 

3. Push the length of the source (in bytes). 

4. Push the address of the first byte of the source. 

5. JSR PC,$CHASN. 

On return, the stack arguments are deleted. 

Character comparison is called as follows: 


1. 

Push the length of the left 
(in bytes). 

side of 

the comparison 

operation 

2. 

Push the address of the first byte 
comparison operation. 

of the left side of the 

3. 

Push the length of the right 
(in bytes). 

side of the comparison 

operation 

4. 

Push the address of the 
operation (in bytes). 

right 

side of the 

comparison 

5. 

JSR PC,$CHCMP. 





On return, the stack arguments are deleted and the condition codes are 
set for an unsigned branch (C and Z bits of the PSW are valid). 


10.2 ARRAY PROCESSING SUPPORT 

An Array Descriptor Block (ADB) is a data structure the compiler 
provides to describe an array. FORTRAN-77 compiled code uses ADBs for 
the following: 

• Array subscript calculations for dummy argument arrays 

• I/O calls that transmit an entire array 
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• Array subscript limit checking when specified by the compiler 
/CK command switch 

• Virtual array load and store operations 

The compiler defines the constant parts of an ADB. The varying parts 
are initialized when the subprogram that contains the array 
declaration is executed. 

The offsets within the ADB are as follows: 

A.ASTR — Actual base storage address (first element) or, for 
virtual arrays, the 64-byte block number of the array 
base in virtual storage. 


A.ASUM — Assumed size array flag bit in code word A.CWRD. 

A.AO — Zeroth—element address (address of A (0,0,0...0)) . 
This offset is ignored for virtual arrays. 


A.CWRD — Code word containing the number of dimensions, data 
type, element size, and information denoting whether it 
is an assumed size array: 


A.BPE 


Assumed Size 
Array Flag 


Data Type Number of 
Dimensions 


1 bit 


4 bits 3 bits 


— Number of bytes per array element (BPE). 
A.CWRD.) 


Element 

Size 

8 bits 

(Low byte of 


A.D1 — First dimension span. (Other dimensions follow A.D1 
but are not named; that is, A.D1+2 is the second 

dimension span.) 


A.SIZB — Total array size in bytes, A.SIZB = D1*D2*...Dn*BPE; 

or, for virtual arrays, the number of elements in the 
array. 


A.PLYA — Addressing polynomial evaluated for the first element, 
polyA(LI,L2,...Ln). 

A.PLYV — Addressing polynomial evaluated for the first element 
of a virtual array, p01yA(Ll,L2,...Ln). 


A.PWRD — Used for adjustable arrays. 2N 1-bit fields denoting 
an adjustable/non-adjustable bound. Encoding is 

left-justified as follows: 


Un Ln Un-1 


U1 LI not used 


A.UN — Last upper bound. Other bounds are stored in front of 
A.UN but are not named; that is, A.UN-2 is the last 
lower bound, A.UN-4 is the next-to-last upper bound, 
and so on. 
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The data type codes contained in A.CWRD are: 


A.LGC1 

= 

L0GICAL*1 (BYTE) 



A.LGC2 = L0GICAL*2 

A.LGC4 

= 

LOGICAL*4 

A.INT2 

= 

INTEGERS 

A.INT4 

= 

INTEGER*4 

A.REA4 

= 

REALM 

A.REA8 

= 

REALM (DOUBLE PRECISION) 

A.CMP8 

= 

COMPLEX 

A. CHAR 

= 

CHARACTER 

A.HOLL 

= 

Hollerith 


I/O transmissions also use these codes to denote the list item data 
type. 

The dimension spans (Di) for arrays are the sizes of each dimension: 

Di = upper bound (Ui)-lower bound (Li) + 1 

The compiled code uses dimension spans to determine the subscript 
value. The ADB retains the upper and lower bounds for each array. 
The bounds determine the size and shape of arrays. 


10.2.1 Adjustable Array Initialization 

Four routines are used for initializing the contents of ADBs for dummy 
argument adjustable arrays: MAK1$ for one-dimensional arrays, MAK2$ 
for two-dimensional arrays, MAKN$ for arrays with three to seven 
dimensions, and MAKV$ for virtual arrays. Only R5 is preserved by 
these routines. They are called as follows: 

1. Push the dimension bounds for any nonconstant elements onto 
the stack in order of their appearance in the array 
declarator. 

2. Push the base address of the dummy argument array passed in 
the subprogram call. 

3. Push the address of the array descriptor block onto the 
stack. 

4. Execute a call in the form of JSR PC, to one of the following 

routines: MAK1$, MAK2$, MAKN$, or MAKV$• 

5. On return, the stack arguments are deleted. 


10.2.2 Array Subscript Checking 

If the compiler switch option /CK is in effect, each array reference 
will be checked to verify that the array element address is within the 
bounds established for the array by the array declarator. 


10-6 



OTHER COMPILED-CODE SUPPORT ROUTINES 


The form of the call is: 

1. Push the array element address onto the stack. 

2. Push the address of the array descriptor block. 

3. Execute a call in the form of JSR PC,ARYCK$. 
This call preserves all registers. 


10.2.3 Virtual Array Processing 

Virtual array elements are processed by out-of-line calls in all 
cases. The OTS call returns the mapped virtual address of the array 
element. Either the value of the array element is loaded into a 
register for use or a value is stored into the array element. 

The form of the call is: 

1. Push the address of the array descriptor block on the stack. 

2. Move the indexing expression into R0. 

3. Call the routine: 

VRTx$, if /-CK was specified 

VRTxC$, if /CK was specified 

where x is one of the following data type code letters: 

B - L0GICAL*1 
L - L0GICAL*2 
M - LOGICAL*4 
I - INTEGER*2 
J - INTEGER*4 
R - REALM 
D - REALM 
C - COMPLEX*8 

4. On return, the stack argument is deleted, RO contains the 

virtual address of the element, and all other registers are 

preserved. 


10.2.4 Notes on ADB Usage 

The following defines the array-addressing polynomial function, polyA, 
for a three-dimensional array: 

DIMENSION A(L1:U1,L2:U2,L3:U3) 

polyA(I,J,K)=((K*D2+J)*D1+I)*BPE 

A.AO is defined as A.ASTR - polyA(Ll,L2,L3). 
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The address of an array element is then calculated as: 


address of A(i,j,k)=A.ASTR+polyA(i,j,k) -polyA(LI,L2,L3) 

=A.A0+polyA(i, j,k) 

Array bounds checking consists of verifying that the array element 
address is both of the following: 

• Greater than or equal to the base address, A.ASTR 

• Less than the high address+1, A.ASTR+A.SIZB 


Note that only the complete subscript value is within the array; 
individual dimensions are not checked against their corresponding 
dimension bounds. 

For example, the FORTRAN statements 


SUBROUTINE X(A,N) 


DIMENSION 1(100) 

, A(10:N- 

-1,N) 


cause the following ADBs to be created 

for 

.WORD 

310 

A. SIZB 


I.ADB: .WORD 

I 

A.ASTR 


.WORD 

1-2 

A.A0 


.WORD 

20402 

A.CWRD 

No Di values 
an adjustable 

.WORD 

12 

LI = 

10 

.WORD 

0 

U1 = 

N-l 

.WORD 

1 

L2 = 

1 

.WORD 

0 

U2 = 

N 

.WORD 

120000 

A.PWRD 


.WORD 

0 

A•SIZB 


A.ADB: .WORD 

0 

A.ASTR 


.WORD 

0 

A.A0 


.WORD 

31004 

A.CWRD 


.WORD 

0 

Dl 


.WORD 

0 

D2 



since I is not 


10.3 GO TO STATEMENT SUPPORT 

The following sections describe the code that results from the 
compilation of FORTRAN-77 GO TO statements. 


10.3.1 Computed GO TO Statement Support 

A computed GO TO statement is compiled to a call as follows: 

1. Push the address of the label list. 

2. Convert the index expression value to INTEGER*2 (if needed) 
and push it on the stack. 

3. Execute a call in the form of JSR PC,CGO$. 
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4. On return, the stack arguments are deleted. 

5. If the index value is less than 1 or greater than the number 
of labels in the list, no transfer takes place and all 
registers are preserved. 

10.3.2 Assigned GO TO Statement Support 

An assigned GO TO statement is compiled to a call as follows: 

1. Push the assigned label address. 

2. Push the address of the allowed label list. 

3. Execute a call in the form of JSR PC,AGO$. 

4. On return, the stack arguments are deleted. 

5. If the assigned label value is not in the list, no transfer 
takes place and all registers are preserved. 


10.3.3 Label List Argument Format 

The label list for the assigned or computed GO TO statement has the 
following form: 

ADDR: .WORD n 

.WORD labell 

.WORD labeln 


10.4 TRACEBACK CHAIN PROCESSING 

The traceback chain for error processing is a linked list constructed 
dynamically on the run-time stack. 

The work area contains the list head and the current statement number. 
The list head is at offset W.NAMC, with global name $NAMC• The 
current statement number is at offset W.SEQC, with global name $SEQC. 

The list elements are 4-word blocks located on the stack in the 
following form: 


$NAMC -> pointer to next 

statement number 
program unit 
name in RAD50 
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The list head points to the currently active program unit entry. This 
entry contains the following items: 

• The currently active program unit name in Radix-50 

• The current statement number in the calling program at the 
time of the call 

• A pointer to the calling program list block 

Note that the statement number pertains to the program unit of the 
NEXT list block, since the current program unit statement number is 
maintained at the fixed global location $SEQC. 

If the compiler command option /TR:NAMES, /TR:BLOCKS, or /TR:ALL is 
specified, a call is made to link the program unit name into the OTS 
name list used for producing the error traceback information. The 
form of the call is: 

1. Push the last three letters of the entry name (represented in 
Radix-50) onto the stack. 

2. Load the first three letters of the entry name into register 


3. Execute a call in the form of JSR R4,@$NAM$. 

The current statement number, $SEQC, is set to zero. The traceback 
information is maintained on the execution stack. When the program 
unit returns, it returns to the NAM$ routine, which resets the stack, 
removes the name chain link, and returns control to the caller. 

If /TR:NAMES is specified, the current statement number is not updated 
($SEQC remains zero) . 

If /TR:BLOCKS is specified, the current statement number is 
periodically updated by the compiler to contain the negative of the 
statement number, for instance, -21 for statement 21. 

If /TR:LINES is specified, the current statement number is updated on 
every statement, maintaining a positive number. 
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CHAPTER 11 

OTS SYSTEM GENERATION AND TAILORING 


The OTS is built during the installation process as described in the 
PDP-11 FORTRAN-77 Insta llation Guide . The material in this chapter 
gives a more detailed explanation of the installation options, as well 
as information on building the OTS from sources. 


o 

c 

o 


11.1 ASSEMBLY OPTIONS 

All assembly options are determined by the definition or nondefinition 
of a symbol. 

There are three operating system assembly options, three file system 
assembly options, two hardware assembly options, and two special 
assembly options. No two options affect the same module; thus, 
options can be combined. 


11.1.1 Operating System Options 

The two operating system option symbols are RSXD for IAS, RSXM for 
RSX-11M/M-PLUS and RSTS/E, and RSXS for RSX-11S. The following 
modules are affected: 

$OTV — impure area allocation 

$ERRMO — error report interface 

$ERRLOG — error report construction 

$ERRPT — error processor 

The modules $ERTXT and $SHORT are used only with RSX-11M/M-PLUS. 



11.1.2 File System Options 

The two versions of I/O systems are maintained as separate sources, 
but three assembly options are maintained. The assembly options are: 

• FCS specifies FCS-11 version. 

• RMS specifies RMS-11 version. 

• Nothing specifies the RSX-11S subset. 
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OTS SYSTEM GENERATION AND TAILORING 


11.1.3 EIS Instruction Set Option 


The two hardware options are defined by the symbol FPP. if Fpp is not 
defined, then you can use the OTS on a PDP-11/45 or -11/40 with EIS, 
provided no floating point computations are attempted. 


The modules affected are: 


$MLJ — INTEGER*4 multiplication 

$DVJ — INTEGERS division 

$JMOD — INTEGERM modulo 

$FPPUTI — FPP save/restore and initialization 


11.1.4 Special Assembly Options 

The following sections describe the two special assembly options 


11.1.4.1 Double-Precision Arithmetic Option - The symbol F77DP is 

used to assemble certain mathematical functions in double-precision 
mod 6 • 

The modules affected are: 

$ASIN — arc sine 
$ACOS — arc cosine 
$TAN — tangent 


11.1.4.2 Floating-Point Format Conversion Option - The symbol FPP is 

also used to define the floating-point output conversion module that 
utilizes the FPP. 

The module affected is: 

$C0NVR - floating-point format conversion 
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11.2 OTS ASSEMBLY MACROS 

The OTS data base, PSECT attributes, and errors are defined at 
assembly time by the following macros contained in the parameter file 
F77.MAC: 

• OTSWA Macro — defines the work area offsets (see Appendix A). 

• ERRDEF Macro — defines the OTS errors, error control byte 
control bits, and error message text. 

• $AOTS Macro — obtains the impure area pointer from location 
$OTSV and places it in a register, usually R3. 

• OTS$I Macro — defines the OTS code PSECT $$OTSI. 

• OTS$D Macro — defines the OTS pure area PSECT $$OTSD. 

• ADBDEF Macro — defines the array descriptor block offsets and 
the data type codes. It is found in the parameter file 
ADBDEF.MAC. 

• FBLOCK Macro — defines the LUB control block offsets for the 
FCS or RMS versions of the I/O system. It is defined in the 
parameter files FCS and RMS. 
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APPENDIX A 


FORTRAN IMPURE AREA DEFINITIONS 


octal offset 


0 

2 

4 

6 

10 

12 

14 

16 

20 

22 

24 

26 

30 

32 

34 

36 

40 

42 

44 

46 

50 


106 

110 

112 

114 

116 

120 

122 

124 

126 

130 


W.SEQC 


W.NAMC 


W.LUNS 


W.MO 


W.BFAD 


W.BLEN 


W.BEND 


LNBUF 


W.QIO 


W.DEV 


RECIO 


FMTAD 


FILPTR 


EOLBUF 


FMTCLN 


BLBUF 


PSCALE 


W.LICP/FSTKP 



i W.LICB/FSTK/NOARG 


PARLVL 


NUMFLG 


i 16 word scratch area 


overflow word 


FMTRET 


TSPECP 


TYPE 


UNFLGS/REPCNT 


W.ELEM DOLFLG 


COUNT 


global symbol 
$OTSVA, $SEQC 
$NAMC 
.NLUNS 
.MOLUN 


ZK-231-81 
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FORTRAN IMPURE AREA DEFINITIONS 


octal offset 


132 

134 

136 

140 

142 

144 

146 

150 

152 

154 

156 

160 

162 

164 

166 

170 

172 

174 

176 

200 

202 

204 

206 

210 

212 

214 

216 

220 

222 

224 

226 

230 

232 


W.UOPN/RACNT/UNCNT/FMTLP 


DENCWD 


W.PC 


EXADDR 


ENDEX 


ERREX 


W.ECNT 


W.ERNM 


W.LIMT 


W.OPFL 


W.ERLN 


W.ERLE 


W.TKNP 


W.ERTB 


W.FERR 


W.FER1 


W.SST 


W.OBFL 


W.OBFH 


W.ERUN 


W.FPST 


W.EXJ 


W.IOEF W.PNTY 


W.R5 


W.VTYP 


W.KNUM/W.RECL/W.KDSC 


W.RECH 


W.DFLT W.FPPF 


W.LNMP 


W.PRNT 


W.TYPE 


W.ACPT 


W.READ 


global symbol 


$ERCNT 


SPRINT 

$TYPE 

SACCPT 

$READ 


ZK-232-81 
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FORTRAN IMPURE AREA DEFINITIONS 


octal offset 


234 

236 

240 

242 

244 

246 

250 

252 

254 

256 

260 

262 

264 

266 

270 

272 

274 

276 

300 

302 

304 

306 

310 

312 

314 

316 

320 

322 

324 

326 

330 

332 

334 

336 

340 

342 


W.MOPR 


W.MOV1 


W.MOA1 


W.MOV2 


W.MOA2 


W.MOTC 


W.MOTR 


W.MOT2 


W.MOTY 


W.DEVL 


W.NULL W.CPXF 


W.FDB1 


W.FOB2 


W.EXST 


W.FNML 


W.WDB 


W.SKLM 


W.TKLM 


W.TSKP 


W.WNLO 


W.WNHI 


W.KREF 


W.KDTP W.KMAT 


W.EXTK 


W.SPBN W.LUN0 


W.PLIC 


W.TBST 


W.TBFN 


W.ERXT 


W.ERLG 


W.FIN 


W.NAM 


W.IOXT 


W.RLME 


W.RQME 


W.GSA 


W.END 


global symbol 


$MOPRM 


$MXFNL 


$EXTKL 
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344 


ZK-233-81 




















































APPENDIX B 


FORTRAN LOGICAL UNIT CONTROL BLOCK DEFINITIONS 


B.l FCS-11 LUB CONTROL BLOCK FORMAT 

offset 
0 
2 
4 
6 
8 . 

10 . 

12= D.FDB 


ZK-234-81 


D.STAT 

D.STA2 


D.RCNM/D.RCCT 


D.RCN2/D.RCC2 

D.AVAD 

DRSIZ 


start of FCS-11 

rv 

FDB 


Status Bit Definition 


STAT - Word 

1 

DV.FIX 

=2 

DV.FNB 

= 4 

DV.DFD 

=10 

DV. FAR 

= 20 

DV.FACC 

=40 

DV.OPN 

=200 

DV.VAR 

= 400 

DV.SEG 

= 1000 

DV.FMP 

=2000 


RECORD TYPE ='FIXED' 

FILE NAME BLOCK INITIALIZED 
DEFINE FILE DONE DIRECT ACCESS UNIT 
PARTIAL FDB FLAG FOR ENCODE/DECODE 
FILE ATTRIBUTES: 0 - DEFAULT 

1 - CALL FDBSET 
UNIT OPEN MUST BE 200'S BIT 
RECORDTYPE='VARIABLE' 

RECORDTYPE='SEGMENTED' 

FORMATTED ACCESSED UNIT 
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FORTRAN LOGICAL UNIT CONTROL BLOCK DEFINITIONS 


D.STAT - Word 1 


DV.UFP 

=4000 

UNFORMATTED ACCESSED UNIT 

DV.ASGN 

=10000 

FILESPEC: 0 - USE DEFAULT 

1 - FROM CALL ASSIGN 

DV.CLO 

=20000 

CLOSE IN PROGRESS 

DV.FRE 

=40000 

FREE FORMAT ALLOWED 

DV.RW 

=100000 

CURRENT OPERATION: 0 -READ 

1 - WRITE 

D.STA2 - Word 2 


DV.AI4 

= 2 

DEFINEFILE ASSOC VAR: 0-1*2 

1 - 1*4 

DV.RSZ 

=4 

EXPLICIT RECORDSIZE SPECIFIED 

DV.CC 

=10 

EXPLICIT CARRIAGE CONTROL SPECIFIED 

DV.SPL 

=20 

DISPOSE = 'PRINT' 

DV.DEL 

=40 

DISPOSE = 'DELETE' 

DV.RDO 

= 400 

READONLY 

DV.UNK 

=1000 

TYPE = 'UNKNOWN' 

DV.OLD 

=2000 

TYPE = 'OLD' 

DV.NEW 

=4000 

TYPE = 'NEW' 

DV.SCR 

=10000 

TYPE = 'SCRATCH' 

DV.APD 

=20000 

ACCESS ='APPEND' 

DV.SAV 

=40000 

DISPOSE 3 'SAVE' 

DV. BN 

=100000 

BLANK = 'NULL' 
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B.2 RMS-11 CONTROL BLOCK FORMATS 

offset 

0 
2 
4 
6 
8 . 

10 . 

12 . 

14. 

16 . 

18 . 

20 . 

22 . 

24. 

26. 

28. = D.RAB 


D.NAM = D.RAB+RB$BLN 


ZK-235-81 


LUB FORMAT 


D.STAT 

D.STA2 

D.NAMC D.LUN 

D.IFI 

D.PFAB 

D.RSIZ 

D.RCNM/D.RCCT 

D.RCN2/D.RCC2 

D.AVAD 

D.STS 

D.STV 

D.RNUM 

D.SPAR 

RMS-11 RAB 

length = RB$BLN 

file specification save area 
~ size = value of offset W.FNML ~ 

in the impure area 


Status Bit Definitions 
D.STAT - Word 1 


DV.SEQ 

= 1 

SEQUENTIAL ACCESS 

DV.DIR 

= 2 

DIRECT ACCESS 

DV.KEY 

= 4 

KEYED ACCESS 

DV.FIX 

=10 

FIXED LENGTH RECORDS 

DV.FAK 

=20 

PARTIAL FDB FLAG FOR ENCODE/DECODE 

DV.FACC 

= 40 

FILE ATTRIBUTES: 0 - DEFAULT 



1 - CALL FDBSET 

DV.VAR 

= 100 

VARIABLE LENGTH RECORDS 

DV.OPN 

= 200 

UNIT OPEN MUST BE 200'S BIT 

DV.FMP 

=2000 

,FORMATTED ACCESSED UNIT 
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FORTRAN LOGICAL UNIT CONTROL BLOCK DEFINITIONS 


D.STAT - Word 1 


DV.UFP 

=4000 

UNFORMATTED ACCESSED UNIT 

DV.SEG 

=10000 

SEGMENTED RECORDS (UNFORMATTED SEQ 

DV.CLO 

=20000 

CLOSE IN PROGRESS 

DV.FRE 

=40000 

FREE FORMAT ALLOWED 

DV.RW 

=100000 

CURRENT OPERATION: 0 - READ 

1 - WRITE 

^2 - Word 2 


DV.SEQ 

= 1 

ORGANIZATION=SEQUENTIAL 

DV.REL 

= 2 

ORGANIZ ATION =RE LATIVE 

DV.IDX 

=4 

ORGANIZATION=INDEXED 

DV.CC 

=10 

EXPLICIT CARRIAGE CONTROL SPECIFIED 

DV.SPL 

=20 

DISPOSE = 'PRINT' 

DV.DEL 

=40 

DISPOSE = 'DELETE' 

DV.AI4 

=100 

DEFINEFILE ASSOC VAR: 0-1*2 

1 - 1*4 

DV.RSZ 

= 200 

EXPLICIT RECORDSIZE SPECIFIED 

DV.RDO 

=400 

READONLY 

DV.UNK 

=1000 

TYPE = 'UNKNOWN' 

DV.OLD 

=2000 

TYPE = 'OLD' 

DV.NEW 

= 4000 

TYPE = 'NEW' 

DV.SCR 

=10000 

TYPE = 'SCRATCH' 

DV.APD 

=20000 

ACCESS='APPEND' 

DV.SAV 

=40000 

DISPOSE='SAVE' 

DV. BN 

=100000 

BLANK = 'NULL' 




B-4 



FORTRAN LOGICAL UNIT CONTROL BLOCK DEFINITIONS 




FORTRAN FAB block definition 
FORTRAN Key Definition XAB blocks 


F.KYCT 

F.STAT 

F.PXAB 

F.SPAR 

default file spec 

"FOROnn.DAT" 


RMS-11 

FAB 

length = FB$BLN 


offset 


0 

2 

4 

6= F.DNAM 

8 . 

10 . 

12 . 

14 . 

16. = F.FAB 


ZK-236-81 



RMS-11 

XAB 


length = i 

XB$KYL 

X.POS 

X.DTP 

X.SIZ 


offset 


XB$KYL 

XB$KYL+Z 

ZK-237-81 
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APPENDIX C 
OTS SIZE SUMMARY 


This appendix is a guide to the approximate sizes of all the modules 
in the PDP-11 FORTRAN-77 OTS. Modules are grouped by related function 
and identified by the TITLE, as shown in Task Builder storage 
allocation maps. All object module sizes are shown in decimal words. 





C.l MODULES ALWAYS PRESENT 
C.1.1 FCS-11 Support 

Module Name Module Size in 

Decimal Words 


$CLOSE 

Close files 

44 

$ERRLO 

Error message construction 

303 

$ERRMO 

Error message I/O 

37/97 

$ERRPT 

Error control processing 

252 

$ERTXT 

Error message text 

1128/0 

$FCHNL 

LUB processing 

67 

$FPERR 

FPP interrupt processor 

54 

$FPUTI 

FPP utilities 

37 

$OTI 

OTS initialization 

84 

$R50 

Radix-50 to ASCII conversion 

44 

$SAVRG 

Register save co-routine 

59 

$VINIT 

Virtual array initialization 

42 


$OTV OTS Impure area (by PSECT) 


$$A0TS 

Common work area 

274 

$$DEVT 

Logical unit control 
table (Size=UNITS*54) 


$$FSR1 

FCS buffer area 



(Size=ACTFIL*264) 

1056 

$$I0B1 

I/O buffer 



(Size=max(MAXBUF,67)) 

67 

$$0BF1 

Object time format buffer 
(Size=max(FMTBUF,32)) 



32 

$$FSR2 

FCS impure area 

75 

$$OTSI 

Mixed OTSs trap 

2 
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C.1.2 RMS-11 Support 

Module Name 


Module Size in 
Decimal Words 


$CLOSE 

Close files 

98 

$ERRLO 

Error message construction 

292/230 

$ERRMO 

Error message I/O 

37/97 

$ERRPT 

Error control processing 

249/259 

$ERTXT 

Error message text 

1128/0 

$FABUT 

FAB control block processing 

87 

$FCHNL 

LUB processing 

101 

$FPERR 

FPP interrupt processing 

54 

$FPUTI 

FPP utilities 

37 

$OTI 

OTS initialization 

130 

$R50 

Radix-50 to ASCII conversion 

44 

$RQLME 

Dynamic memory allocation 

58 

$SAVRG 

Register save co-routine 

59 

$VINIT 

Virtual array initialization 

42 

$OTV OTS 

Impure area (by PSECT) 


$$A0TS Common work area 

279 

$$DEVT Logical unit control table 



(Size=UNITS*l) 

6 

$$FSR1 Dynamic memory area 



(Size=ACTFIL*(S.LUB+S.FAB+704) 

1816 

$$I0B1 I/O record buffer 



(Size=max(MAXBUF,66)) 

66 

$$0BF1 Run-Time format buffer 



(Size=max(FMTBUF , 32 )) 

32 


$$DEVU Dynamic memory listhead 

$$OTSI Mixed OTSs Trap 


2 

2 


C.2 COMMON I/O SUPPORT 


The following modules are common to all I/O operations. 


$CONVI 

$CONVL 

$CONVR 

$CONVZ 

$FIO 

$FMTCV 

$IOARY 

$IOELE 

$IOVAR 

$LSTI 

$LSTO 

LICSB$ 


Module Name 


Module Size in 
Decimal Words 


Integer format conversions (1) 225 
Logical format conversions (1) 49 
Real format conversions (1) 680 
Octal and hexadecimal format 

conversions (2) 335 
Format processor 1045 
Run-time format compiler 532 
Array I/O transmission 71 
I/O element transmission 164 
Virtual array I/O transmission 94 
List-directed input processor 484 
List-directed output processor 282 


List-directed input constant storage block (3) 129 


( 1 ) 

( 2 ) 

(3) 


Loaded only if needed, or if 
processing is used. 

Loaded only if needed, or if 
Loaded only if list-directed 


list-directed or run-time format 

run-time format processing is used 
input processing is used. 
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C.2.1 FCS-11 Support 



Module Name 

Module Size in 
Decimal Words 

$FCSRM 

Dummy RMS-ll-only entries 

61 

$FNBST 

File specification processing 

75 

$INITI 

I/O statement initialization 

210 

$OPEN 

File open processing 

318 


C.2.2 

RMS-11 Support 



Module Name 

Module Size in 
Decimal Words 

$FNBST 

File specification processing 

43 

$INITI0 

I/O statement initialization 

309 

$0PEN 

File open processing 

381 


C. 3 SEQUENTIAL INPUT/OUTPUT 

The following modules are used for sequential access I/O. 


C.3.1 FCS-11 Support 


Module Name 


Module Size in 
Decimal Words 


$ISU 

Sequential unformatted READ 

81 

$osu 

Sequential unformatted WRITE 

47 

$ISF 

Sequential formatted READ (1) 

26 

$OSF 

Sequential formatted WRITE (1) 

37 

$ISL 

List-directed READ (1) 

36 

$0SL 

List-directed WRITE (1) 

54 

$GETS 

Get sequential record 

40 

$PUTS 

Put sequential record 

34 


(1) Requires format processing routines. 


C.3.2 RMS-11 Support 

Module Name Module Size in 

Decimal Words 


$ISU 

Sequential unformatted READ 

80 

$osu 

Sequential unformatted WRITE 

95 

$ISF 

Sequential formatted READ (1) 

26 

$0SF 

Sequential formatted WRITE (1) 

37 

$ISL 

List-directed READ (1) 

36 

$OSL 

List-directed WRITE (1) 

54 

$GETS 

Get sequential record 

62 

$PUTS 

Put sequential record 

78 


(1) Requires format processing routines. 
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C.4 DIRECT INPUT/OUTPUT 

The following modules are used for direct access I/O. 


C.4.1 FCS-11 Support 

Module Name 


Module Size in 
Decimal Words 


$IRU 

Direct access unformatted READ 

40 

$ORU 

Direct access unformatted WRITE 

42 

$IRF 

Direct access formatted READ (1) 

29 

$ORF 

Direct access formatted WRITE (1) 

43 

$GETR 

Get direct access record 

22 

$PUTR 

Put direct access record 

50 

$CKRCN 

Check record number, update 
associated variable 

40 

$DEFF 

DEFINEFILE and FIND statements 

71 

(1) Requires format processing routines. 


C.4.2 

RMS-11 Support 



Module Name 

Module ! 
Decimal 

$IRU 

Direct access unformatted READ 

40 

$ORU 

Direct access unformatted WRITE 

47 

$IRF 

Direct access formatted READ(1) 

29 

$ORF 

Direct access formatted WRITE(1) 

43 

$GETR 

Get direct access record 

42 

$PUTR 

Put direct access record 

94 

$CKRCN 

Check record number, update 
associated variable 

50 

$DEFF 

DEFINEFILE statement 

54 

$FOR 

FIND statement 

58 

$DLR 

DELETE statement 

62 


(1) Requires format processing routines. 


C.5 KEYED INPUT/OUTPUT 

The following modules are used for keyed access I/O. 


C.5.1 RMS-11 Support 

Module Name Module Size in 

Decimal Words 


$IKF 

Formatted keyed READ (1) 

68 

$IKU 

Unformatted keyed READ 

70 

$CKKEY 

Key description setup 

45 

$DLS 

Sequential DELETE 

44 

$RSF 

Formatted REWRITE (1) 

37 

$RSU 

Unformatted REWRITE 

43 


(1) Requires format processing routines. 
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Module Name 


$UPDAT Update record 

$GETK Get keyed record 


Module Size in 
Decimal Words 

58 

47 


C.6 MISCELLANEOUS I/O SUPPORT 
C.6.1 FCS-11 Support 

Module Name Module Size in 

Decimal Words 



$ASSIG 

ASSIGN subroutine 

41 

$BACKS 

BACKSPACE statement 

90 

$CLSCA 

CLOSE subroutine 

9 

$CLSST 

CLOSE statement 

150 

$ENCDE 

ENCODE/DECODE and internal file 



statements (1) 

143 

$ENDF 

ENDFILE statement 

57 

$FDBSET 

FDBSET subroutine 

90 

$OPNST 

OPEN statement 

530 

$REWIN 

REWIND statement 

51 


(1) Requires format processing routines. 




C.6.2 RMS-11 Support 


Module Name Module Size in 

Decimal Words 


$ASSIGN 

ASSIGN subroutine 

43 

$BACKS 

BACKSPACE statement 

100 

$CLSCA 

CLOSE subroutine 

9 

$CLSST 

CLOSE statement 

154 

$ENCDE 

ENCODE/DECODE and internal file 



statements (1) 

143 

$ENDF 

ENDFILE statement 

40 

$FDBSET 

FDBSET subroutine 

98 

$0PNST 

OPEN statement 

709 

$REWIN 

REWIND statement 

59 

$UNLOC 

UNLOCK statement 

47 


(1) Requires format processing routines. 


C.7 MISCELLANEOUS COMPILED-CODE SUPPORT 

Module Name 


Module Size in 
Decimal Words 


$AG0 

Assigned GO TO statement 


12 

$ARYCK 

Array subscript checking 


17 

$CGO 

Computed GO TO statement 


18 

$MADB1 

1-Dimensional adjustable 

array 

44 

$MADB2 

2-Dimensional adj ustable 

array 

63 

$MADBN 

N-Dimensional adjustable 

array 

69 

$MADBV 

Adjustable virtual array 


62 

$NAM 

Traceback chain processing 

15 

$STPPA 

STOP/PAUSE statements 


31 

$VIRT 

Virtual array addressing 


84 
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C.8 PROCESSOR-DEFINED FUNCTIONS 

Module Name Module Size in 

Decimal Words 


$ABS 

Real absolute value 

7 

$ACOS 

Arc cosine 

49 

$AIMAG 

Imaginary part 

6 

$AINT 

Real truncation 

9 

$ALOG 

Real log 

87 

$AMIX0 

Real max/min of integer*2 

23 

$AMIX1 

Max/min of reals 

33 

$AMOD 

Real modulo 

15 

$ANINT 

Real and double nearest integer 

24 

$ASIN 

Arc sine 

41 

$ATAN 

Arc tangent 

121 

$CABS 

Complex absolute value 

33 

$CEXP 

Complex exponential 

26 

$CLOG 

Complex logarithm 

26 

$CMPLX 

Complex from reals 

9 

$CONJG 

Complex conjugate 

10 

$COSH 

Hyperbolic cosine 

71 

$CSIN 

Complex sine 

53 

$CSQRT 

Complex square root 

42 

$DABS 

Double absolute value 

9 

$DACOS 

Double arc cosine 

53 

$DASIN 

Double arc sine 

45 

$DATAN 

Double arc tangent 

159 

$DBLE 

Double from real 

7 

$DCOSH 

Double hyperbolic cosine 

91 

$DDIM 

Double positive difference 

14 

$DIM 

Positive difference 

12 

$DINT 

Double truncation 

11 

$DLOG 

Double logarithm 

117 

$DMIX1 

Max/Min of doubles 

25 

$DMOD 

Double modulo 

17 

$DPROD 

Double product of reals 

12 

$DSIGN 

Double transfer of sign 

13 

$DSIN 

Double Sine 

119 

$EXP 

Real exponential 

120 

$FCAL 

Internal service entry 

7 

-$FLOAT 

Integer*2 to real 

8 

$FLOTJ 

IntegerM to real 

17 

$ICHAR 

Character to integer conversion 

4 

$INDEX 

Match a substring in a string 

40 

$LEN 

Length of a character element 

3 

$LGE 

Lexical greater than or equal to 



character comparison 

16 

$LGT 

Lexical greater than character 



comparison 

16 

$LLE 

Lexical less than or equal to 



character comparison 

16 

$LLT 

Lexical less than character 



comparison 

16 

$14FIX 

Real to integer*4 

12 

$IABS 

Integer*2 absolute value 

8 

$IAND 

Integer*2 AND 

7 

$IDIM 

Integer*2 positive difference 

10 

$IEOR 

Integer*2 exclusive OR 

6 

$IFIX 

Real to integer*2 

8 

$MOD 

Integer*2 modulo 

7 

$INOT 

Integer*2 NOT 

4 

$IOR 

Integer*2 inclusive OR 

5 

$ISHFT 

Integer*2 shift 

7 
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OTS SIZE SUMMARY 



Module Name 

Module : 
Decimal 

$ISIGN 

Integer*2 transfer of sign 

12 

$JABS 

Integer*4 absolute value 

11 

$ JAND 

IntegerM AND 

13 

$JDIM 

Integer*4 positive difference 

23 

$JEOR 

Integer*4 exclusive OR 

11 

$JMIX 

Integer*4 minimum and maximum 

44 

$JMOD 

Integer*4 modulo 

22 

$JNOT 

Integer*4 NOT 

7 

$JOR 

Integer*4 inclusive OR 

9 

$JSHFT 

Integer*4 shift 

30 

$JSIGN 

Integer*4 transfer of sign 

21 

$MAXO 

Integer*2 maximum 

10 

$MINO 

Integer*2 minimum 

10 

$NINT 

Nearest integer 

19 

$REAL 

Real from complex 

5 

$RJMIX 

Real max/min of integer*4 

27 

$SIGN 

Real transfer of sign 

11 

$SIN 

Real sine 

99 

$SINH 

Hyperbolic sine 

73 

$DSINH 

Double hyperbolic sine 

93 

$SNGL 

Real from double 

14 

$SQRT 

Square root 

78 

$TAN 

Real tangent 

36 

$DTAN 

Double tangent 

40 

$TANH 

Hyperbolic tangent 

68 

$DTANH 

Double hyperbolic tangent 

102 


C.9 COMPILED-CODE ARITHMETIC SUPPORT (R4 CALLS) 


$ADC 

$CMC 

$DVC 

$DVJ 

$MLC 

$MLJ 

$NGC 

$PWCC 

$PWCJ 

$PWDD 

$PWII 

$PWJJ 

$PWRI 

$PWRR 

$SWPXY 

$TSC 


Module Name Module Size in 

Decimal Words 


Add/subtract complex 

29 

Compare complex 

22 

Divide complex 

50 

Divide integer*4 

26 

Multiply complex 

27 

Multiply integer*4 

21 

Negate complex 

16 

Complex to complex exponentiation 

71 

Complex to integer exponentiation 

115 

Floating to floating exponentiation 

68 

Integer*2 to integer*2 exponentiation 

54 

Integer*4 to integer*4 exponentiation 

133 

Floating to integer exponentiation 

81 

Real to real exponentiation 

40 

Stack swap 

95 

Test complex 

16 


C.10 COMPILED-CODE CHARACTER SUPPORT 
Module Name 


Module Size in 
Decimal Words 


$CHASN Character assignment 

$CHCMP Character comparison 


42 

65 
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OTS SIZE SUMMARY 


C.ll SERVICE SUBROUTINES 

Module Name Module Size in 

Decimal Words 


$DATE 

DATE 

68 

$ERRSE 

ERRSET 

72 

$ERRSN 

ERRSNS 

22 

$ERRTS 

ERRTST 

22 

$EXIT 

EXIT 

13 

$IDATE 

I DATE 

29 

$IRAD5 

IDATE50 

15 

$R50AS 

R50ASC 

6 

$RAD50 

RAD50 

11 

$RAN 

RAN 

19 

$RAND0 

Random number generation 

53 

$RANDU 

RAN DU 

18 

$SECND 

SECNDS 

49 

$TIME 

TIME 

41 

$USERE 

USEREX 

11 


C. 12 OPTIONAL MODULES 


Module Name 


Module Size in 
Decimal Words 


$CONVR Real format conversions(FPP version) 

$FPPUT EIS version 

$SHORT Null error message text 

$ERRLO Null error message logging 

$MLJ EIS version 

$DVJ EIS version 

$JMOD EIS version 


587 

7 

1 

1 

57 

74 

25 


C.13 RSX-11S SUBSET SUPPORT 

Module Name 


$CLOSE Close files 

$ERRLO Error message construction 

$ERRMO Error message I/O 

$ERRPT Error control processing 

$FCHNL LUB processing 

$FCS11 Dummy ECS entry points 

$GETS Sequential input 

$INITIO I/O statement initialization 

$ISF Sequential formatted input (1) 

$ISL List-directed input (1) 

$ISU Sequential unformatted input 

$OSF Sequential formatted output (1) 

$OSL List-directed output (1) 

$OSU Sequential unformatted output 

$OTI OTS initialization 

$PUTS Sequential output 


(1) Requires format processing routines. 


Module Size in 
Decimal Words 

2 

262 

48 

228 

63 

61 

39 
179 

26 

41 

57 

37 

40 
47 
68 
27 
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OTS SIZE SUMMARY 



Module Name Module Size in 

Decimal Words 

$OTV OTS Impure Area (by PSECT) 


$$AOTS 

Common work area 

266 

$ $IOB1 

I/O buffer 

(Size=max(MAXBUF,67)) 

67 

$$OBFl 

Run-Time format buffer 
(Size=max(FMTBUF,32)) 

32 

$$OTSI 

Mixed OTSs traps 

2 

$NAM$ 


1 





c 
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APPENDIX D 

PROGRAM SECTION DESCRIPTIONS 


This appendix describes the program sections (PSECTs) used by the OTS. 
PSECTs are named segments of code or data. The attributes associated 
with each PSECT direct the Task Builder when constructing an 
executable task image. 



$$OTSI — OTS Instructions 

This PSECT contains all of the executable code in the OTS except the 
formatted and list-directed I/O processors. This PSECT has the 
attributes: RO,I,CON,LCL. 


$$OTSD - OTS Pure Data 

This PSECT contains all of the read-only pure data in the OTS except 
the formatted and list-directed I/O data. This PSECT contains 
constants and dispatch tables used by the code in $$OTSI. It has the 
attributes: RO,D,CON,LCL. 



$$AOTS — OTS Impure Storage 

$$AOTS contains the FORTRAN work area impure storage associated with 
each task. It must be contained in the task's root segment and is 
pointed to by the contents of global symbol $OTSV. A detailed 
description is contained in Appendix A. All references in this manual 
to "the work area" or "the FORTRAN work area" apply to this PSECT, 
which has the attributes: RW,D,CON. 


$$DEVT — Logical Unit Device Table 

$$DEVT defines the FORTRAN logical unit device table. The entries in 
this table are fixed-length FORTRAN LOGICAL UNIT BLOCKS (LUBS). A LUB 
is composed of a File Control Services (FCS) FDB or an RMS RAB and 
FAB, and a header for use by FORTRAN. At task start-up, the actual 
number of LUBs available to the FORTRAN task is determined from the 
size of $$DEVT. This area is pointed to by the value of offset W.DEV 
in the work area* This PSECT has the attributes: RW r D,OVR. 


c 
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PROGRAM SECTION DESCRIPTIONS 


$$IOBl — User Record Buffer 

$$IOBl defines the FORTRAN user record buffer. The length is 
determined at task-build time by the MAXBUF keyword; the default 
value is 133 (decimal) bytes. This area is pointed to by offsets 
W.BFAD (start address) and W.BEND (end address+1) in the work area and 
its length is computed at task initialization and stored at offset 
W.BLEN in the work area. This PSECT has the attributes: RW,D,OVR. 


$$0BF1 — Object-Time Format Buffer 

$$0BF1 defines the FORTRAN object time format buffer. The length is 
determined at task-build time by the FMTBUF keyword; the default 
value is 64 (decimal) bytes. This area is pointed to by offsets 
W.OBFL (start address) and W.OBFH (end address+1) in the work area. 
This PSECT has the attributes: RW,D,OVR. 


$$TSKP — Task Information 

$$TSKP contains five 2-byte fields that provide the OTS with 
information about the task. The information is supplied by the Task 
Builder. 


Format Conversion PSECTs 

The formatted and list-directed I/O processors minimize task size by 
loading only those format conversion modules referenced by the user’s 
format specifications. Each module is in an independent PSECT and 
places a pointer to itself in a special PSECT used as a dispatch 
table. These PSECTs have the global (GBL) attribute to ensure that 
this collection of modules will be placed in the lowest common segment 
of an overlaid task. 


The PSECTs are named as follows: 

$$FIOC — contains the format processor 
list-directed processor code 


code and 


the 


$$FIOD — contains the format and list-directed processor pure 
data 

$$FIOI — contains the integer conversions 

$$FIOL — contains the logical conversions 

$$FIOR — contains the floating-point conversions 

$$FIOS — contains the list-directed constant storage block 

$$FIOZ — contains the octal and hexadecimal conversions 

$$FI02 — contains the conversion dispatch table 
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A 


ACCEPT statement, 4-2, 5-12 
ACCESS, 5-13, 6-2, 7-2 
$ACOS, 11-2 
ADB, 10-4 

ADBDEF macro, 11-2 
Adjustable array initialization, 
10-5 

Allocate storage (RQMEM$), 7-2 
ALUN$S, 9-5 
$A0TS macro, 11-2 
$ $AOTS, D-l 

Argument summary for FDBSET, 6-12 
Arithmetic operations, 10-1 
Array addressing polynomial 
function, 10-5 

Array descriptor block (ADB), 

10-4 

Array dimension spans, 10-6 
Array processing support, 10-4 
Array subscript checking, 10-6 
$ASIN, 11-2 

Assembly macros for OTS, 11-3 
Assembly options, 11-1 
ASSIGN, 6-11, 7-15 
ASSOCIATEVARIABLE, 5-13, 6-2, 7-2 
Assumed size array flag, 10-5 
$ASVAR, 

associate variable update, 

5-6, 6-10, 7-13 

Asynchronous system traps, 9-4 
$ATT, 9-5 

Auxiliary I/O operations, 6-10, 
7-13 


B 


BACKSPACE (BKSP$), 6-11, 7-13 
$BINAS, 9-5 
BKSP$, 

BACKSPACE, 6-11, 7-13 
BLOCKSIZE, 5-13, 6-2, 7-3 
BUFFERCOUNT, 5-13, 6-2, 7-3 


C 


Calling sequence conventions, 
F0 calls, 2-4 
PC calls, 2-3 
R4 calls, 2-3 
R5 calls, 2-1 
Special, 2-5 


CARRIAGECONTROL, 5-13, 6-2, 7-3 
CHARKEY, 5-13 

Checking direct access record 
numbers, 6-10, 7-12 
$CKKEY, 5-17, 7-13 
$CKRCN, 5-16, 6-10, 7-12 
CLOSE statement, 5-12, 6-12, 7-10, 
7-15 

CLOSE$, 6-8 
Compiled code, 
interface, 5-2 
support routines, 1-2, 10-1 
Compiled format language, 8-1 
Complex arithmetic operations, 

10-2 

Complex conversions, 8-9 
Continuation processing, 9-3 
Control block formats, 

FCS-11 LUB, B—1 
RMS-11, B-3 

Conversion routine entry point 
PSECT ($$F102), 8-5 
$CONVR, 11-2 
.CSI$1, 6-8 
.CSI$2, 6-8 

Current line number, 10-8 


D 


Data, 

formatting, 5-10 
storage, 4-1 
transmission, 5-9 
DC0$, 8-9 

Deallocate storage (RLMEM$), 7-2 
Decimal field width, 8-3 
Default directory processing, 6-8 
Default file close processing, 
5-16 

Default file name generation, 6-8 
Default file open processing, 

5-16 

FCS-11, 6-5 
RMS-11, 7-7 
Default formats, 8-3 
Default unit numbers, 5-11 
DE FF $ 

DEFINEFILE, 6-11, 7-14 
DEFINEFILE (DEFF$), 6-11, 7-14 
$DELETE, 7-12 

DELETE (DLS$ and DLR$), 7-14 
$DET, 9-5 
$DETIC, 9-5 
$ $DEVI, D-l 
$$DEVT PSECT, 

FCS-11, 4-9 
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$$DEVT PSECT (Cont.) 

RMS-11, 4-10 
Direct access input, 

$GETR, 6-10, 7-12 
Direct access output, 

$PUTR and $PUTRI, 6-10, 7-12 
Direct access record number 
checking, 

$CKRCN, 5-16, 6-10, 7-13 
Direct delete ($DELETE), 7-13 
$DISCONNECT, 7-11 
DISPOSE, 5-14, 6-2, 7-3 
.DLFNB, 6-8 
DLS$ and DLR$, 7-15 
Double precision, 

arithmetic option, 11-2 
conversions, 8-9 
$DVJ, 11-2 

Dynamic storage allocation for 
control blocks, 7-1 


E 


ECO$, 8-9 

EIS instruction set option, 11-2 
Element transmission calls, 5-2, 
5-9 

ENCODE/DECODE, 4-4 
ENDFILE (ENDF$), 6-11, 7-14 
ENDF$, 

ENDFILE, 6-11, 7-14 
End of I/O list, 

EOLST$, 5-10 
ERR, 5-14, 6-2, 7-3 
$ERRAA, 9-3 
ERRDEF macro, 11-2 
$ERRLG, 9-3 
$ERRLOG, 11-1 
$ERRM0, 11-1 
$ERRNL, 9-5 
$ERRPT, 11-1 
Error control, 

byte processing, 9-2 
definition (ERRDEF), 11-2 
offsets, 4-6 
table, 4-1 

Error message and traceback 
control offsets, 4-7 
Error message processing, 9-4 
Error processing, 9-1 
data structures, 9-2 
routines, 1-2 
user interface to, 9-6 
Error processor ($ERRPT), 11-1 
Error recovery methods, 1-2 
Error report construction 
($ERRL0G), 11-1 

Error report interface ($ERRMO), 
11-1 

Error site return error recovery, 
1-2 


Error text message line, 4-1 

ERRSET, 9-7 

ERRSNS, 9-7 

ERRTST, 9-7 

$ERRW1, 9-5 

$ERRZA, 9-5 

ERR= error recovery, 1-2 
Execution control, 9-1 
subroutines, 9-7 
Execution-time errors, 9-2 
EXIT, 9-7 
$EXIT, 9-5 

Exponent field width byte, 8-3 
Exponentiation, 10-2 
Extended Attributes Block (XAB), 
7-1 

EXTENDSIZE, 5-14, 6-2, 7-3 
EXTK$ directive, 4-3 
$EXTKL global name, 4-3 
EXTTSK, 7-1 


F 


FAB, 4-13, 7-1 
FABRL$, 7-10 
FABRQ$, 7-10 
FBLOCK macro, 11-2 
$FCHNL, 5-15 
FC0$, 8-9 
FSC-11, 

file descriptor block (FDB), 

4-9 

I/O support, 6-1 
logical unit block (LUB), 
definitions, 4-8 
header offsets, 4-9 
status bit definitions, 4-9 
FCS-11 LUB control block format, 
B-l 

FDB (file descriptor block), 4-9, 

4- 1 
FDBSET, 

argument summary, 6-12, 7-16 
Field width byte, 8-3 
File Access Block (FAB), 7-1 
File close processing, 6-8, 7-11 
by default, 5-16 
File Control Services-11, 
(FCS-11), 6-1 
File deletion, 6-8 
File descriptor block (FDB), 6-1 
File formats, 5-17 
File name block initialization, 
6-8 

File name processing, 6-8 
File open processing by default, 

5- 16 

FCS-11, 6-5 
RMS-11, 7-7 

File open utility routines, 7-10 
File positioning (.POINT), 6-11 
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File printing, 6-8 

File system options, 11-1 

$FILL, 9-5 

$FIO routine, 5-10, 8-5 

$$FIOC, 8-4 

$$FIOD, 8-4 

$$FIOI, 8-4 

$$FI0L, 8-4 

$$FI0R, 8-4 

$$FI02, 8-5 

$$FIOS, 8-4 

$$FI0Z, 8-5 

FIND (FINDS), 6-11, 7-15 
$FLDEF, 6-8 
Floating point, 

conversion PSECT ($$FIOR), 8-4 
format conversion option, 11-2 
processor, 

accumulator naming conven¬ 
tions, 2-1 
errors, 9-4 
FMTCV$, 

run-time format compiler, 5-6, 
8-6 

$FNBST, 6-8, 7-10 
FORM, 5-14, 6-2, 7-3 
Format, 

control offset, 4-5 
conversion error processing, 
8-10 

conversion PSECTs, D-2 
processing and conversion, 

8-1 

processing PSECTs, 8-4 
processor ($FIO), 8-5 
processor routine, 5-10 
Formatted code byte, 8-1 
$FPERR, 9-4 
$FPPUTI, 11-2 

F0 calling sequence conventions, 
2-4 


G 


GC0$, 8-9 

Generating the OTS system, 11-1 
$GETFILE, 5-15, 6-11 
$GETK, 5-11, 7-13 
$GETR, 

direct access input, 5-11, 6-10, 
7-12 

$GETS, 

sequential input, 5-11, 6-9, 

7-12 

GO TO statement, 
assigned, 10-9 
computed, 10-8 
GPRT$S, 9-1 
.GTDID, 6-8 
GTSK$S, 9-1 


H 


Hexadecimal conversions, 8-8 
Hollerith formats, 8-3 


I 


ICI$, 8-7 
Impure area, 

allocation ($OTV), 11-1 
definitions, A-l 
pointer ($AOTS), 11-2 
Impure storage area, 
linkage to, 3-2 
logical unit control table, 

4-1, 4-8 
work area, 4-1 

Indexed file organization, 5-18 
Initialization calls, 5-2 
INITIALSIZE, 5-14, 6-2, 7-3 
$INITIF, 9-2 
$INITIO, 5-3, 5-6 
INSTALL command, 7-1 
Integer and octal conversion 
PSECT ($$FI0I) , 8-4 
Integer conversion (ICI$), 8-7 
INTEGER4 arithmetic operations, 
10-3 

Internal support routines, 5-15 

INTKEY, 5-14 

IOAA$, 5-9 

IOACH$ 5-10 

IOAH$, 5-9 

I0AVA$, 5-9 

$$I0B1, D-2 

$IOEXIT, 5-15 

I/O, 

control offset, 4-2, 4-4 
formatted, 5-10 
initialization, 5-2 
argument masks, 5-7 
processing, 5-6 
symbols, 5-6 

processing structure, 5-1 
related subroutines, 6-11, 7-15 
subsystem levels, 5-1 


J 


$JMOD, 11-2 


K 


KEY, 5-13, 7-3 
KEYCNT, 7-3 
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Keyed I/O processing, 7-13 
Keyed I/O specifier checking 
($CKKEY), 5-16, 7-13 
Keyed input ($GETK), 7-14 
Keyed output ($PUTS), 7-11 
Keyed rewrite ($UPDATE), 7-14 


L 


Labeling conventions, 2-5 
Label list argument format, 10-9 
LCI$ and LCO$, 8-8 
.LIMIT directive, 4-3 
List-directed input processor 
($LSTI), 8-5 
routines, 5-10 

List-directed output processor 
($LST0), 8-5 
routines, 5-10 

Logical conversion (LCI$ and 
LCO$), 8-8 

Logical conversion PSECT 
($$FIOL), 8-4 

Log terminal messages ($ERRLG), 
9-3 

$LSTI, 5-10, 5-5 
$LSTO, 5-10, 8-5 
LUB, 4-8 

Logical unit control table, 4-1, 
4-8 


M 


MAKN $, 10-5 
MAKV$, 10-5 
MAK1$, 10-5 
MAK2$, 10-5 

Mathematical routines, 

called with special names, 1-2 
MAXREC, 5-14, 6-2, 7-4 
Message construction utilities, 
9-4 

$MLJ, 11-2 

•MOLUN global name, 4-3 
$MXFNL global name, 4-3 


N 


$NAMC global name, 10-8 
NAME, 6-2, 7-4 
NAM block, 7-1 
Name block, (NAM), 7-1 
Named offsets, 

error control, 4-6 
error message and traceback 
control, 4-7 


Named offsets (Cont.) 
format control, 4-5 
I/O control, 4-3 
run-time format control, 4-6 
task control, 4-2 
virtual array control, 4-8 
Naming conventions, 

for processor general regis¬ 
ters, 2-1 

for floating point processor 
accumulators, 2-1 
•NLUNS global name, 4-3 
NOSPANBLOCKS, 5-14, 6-2, 7-4 


0 


$$0BF1, D-2 
Object Time System, 
definition, 1-1 
Obtain storage ($SETGSA), 7-1 
OCI$, 8-7 

Octal conversion (OCI$), 8-7 

OFNB$, 6-1 

Open processing, 

FCS-11, 6-1 
RMS-11, 7-2 

OPEN statement, 5-12, 6-1, 7-2 
$0PEN$ procedure, 6-5, 7-7 
Operating system options, 11-1 
ORGANIZATION, 5-14, 7-4 
OTS, 

assembly macros, 11-2 
size summary, C-l 
system generation, 11-1 
$$OTSD, D-l 
$$0TSI, D-l 
$OTSVA, 

linkage to, 3-2 
OTSWA macro, 11-2 
OTS$D macro, 11-2 
0TS$I macro, 11-2 
$0TV, 11-1 


P 


.PARSE, 6-8 

PAUSE statement, 9-3, 9-5 
PC calling sequence conventions, 
2-3 
.POINT, 

file positioning, 6-11 
PRINT statement, 4-3, 5-12 
$PRINT, global name, 4-3 
.PRINT, 6-8 

Procedural conventions, 2-1 
Processing error messages, 9-4 
Processor-defined functions, 
called with special names, 2-1 
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Processor general registers, 
naming conventions for, 2-1 
Program section descriptions, D-l 
Program termination control, 

USEREX subroutine, 1-2 
PSECT descriptions, D-l 
Pure code PSECT ($$FIOC), 8-4 
Pure data PSECT ($$FIOD), 8-4 
$PUTI and $PUTR, 

direct access output, 6-10, 7-12 
$PUTR, 5-11, 6-10, 7-12 
$PUTS, 5-11, 6-9, 7-12 


Q 

QIO directive parameter block, 4-1 
Quoted format strings, 8-3 

R 


RAB, 4-10, 7-1 
RCI$, 8-9 

READONLY, 5-14, 6-2, 7-4 
READ statement, 4-3, 5-12 
$READ global name, 4-3 
Real conversions, 8-9 
$REAM0, 9-5 

Record Access Block (RAB), 4-10, 
7-1 

Record formats, 5-17 
Record length, 5-17 
Record Management Services-11 
(RMS-11), 7-1 

Record processing routines, 5-11 
RECORDSIZE, 5-14, 6-2, 7-4 
RECORDTYPE, 5-14, 6-3, 7-4 
Register save and restore, 

2-5, 5-17 

Relative file organization, 5-18 
Repeat count byte, 8-3 
Request and release storage 
(RMSQL$), 7-2 

Restore and save register con¬ 
text, 2-5 

REWIND (REWI$), 6-11, 7-14 
REWI$, 

REWIND, 6-11, 7-14 
RLMEM$, 7-2 
RMSQL$, 7-2 

RMS-11 control block formats, B-2 
RMS-11 Extended Attributes Block, 
definitions, 4-13 
RMS-11 File Access Block, 
definitions, 4-13 
RMS-11 I/O control blocks, 7-1 
RMS-11 LUB, 

definitions, 4-10 

header offsets, 4-11 

status bit definitions, 4-11 


RMS-11 Name Block, 4-11 
RQMEM$, 7-2 
RUN command, 7-1 
Run-time format compiler 
(FMTCV$), 5-6, 8-6 
Run-time format control offset, 
4-6 

R4 calling sequence conventions, 
2-3 

R5 calling sequence conventions, 
2-1 

$R50AB, 9-5 
$R50AS, 9-5 


S 


Save and restore register con¬ 
text, 2-5 
$SAVPx, 5-17 
$SAVR1, 5-17 
$SEQC, 10-8 

Sequential file organization, 
5-17 

Sequential input, 

$GETS, 6-9, 7-11 
Sequential I/O processing, 7-11 
Sequential output, 

$PUTS, 6-9, 7-12 
$SETGSA, 5-2, 9-2 
SHARED, 5-14, 6-2, 7-4 
Special calling sequence con¬ 
ventions, 2-5 
SPND$S, 9-5 
$SST, 

synchronous system trap vector 
table, 4-1, 9-5 
SST table, 4-3 
$SST6, 9-2 

Stack swap operations, 10-3 
STOP statement, 9-3, 9-5 
Subroutine calls, 5-2 
SVTK$S, 9-1 

System generation, 11-1 
System subroutines, 1-2 
System synchronous trap table, 
9-5 

Synchronous system trap vector 
table, 

$SST, 4-1 


T 


$TAN, 11-2 
Task control, 
offset, 4-2 
control routines, 1-2 
Task initialization, 9-1 
Task parameters PSECT, 

$$TSKP, 4-3, D-2 
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Terminal message log ($ERRLG), 9-3 
Terminal message output, 9-5 
Terminal QIO, 9-4 
Termination calls, 1-2 
Traceback chain, 10-9 
TRAP instruction, 9-2 
/TR:ALL, 10-9 
/TR:BL0CKS, 10-9 
/TR:NAMES, 10-9 
$$TSKP PSECT, 4-3 
$TYPE global name, 4-3 
TYPE statement, 5-11, 5-14, 6-2, 
7-4 


U 


UNIT, 5-14, 6-3, 7-4 
UNLK$, 7-14 
UNLOCK (UNLK$), 7-14 
$UPDATE, 5-11, 7-14 
USEREX, 9-7 

address of, 4-2 

program termination control, 1-2 
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